EditorURLClick method

Applies to
TForm4

Declaration
procedure EditorURLClick(Sender: TObject; const URLText: string; Button: TMouseButton);

Implementation

procedure TForm4.EditorURLClick(Sender: TObject;
  const URLText: String; Button: TMouseButton);
begin try
form1.play_snd(1);
open_web_page(URLText);
except end;End;

HTML generated by Time2HELP
http://www.time2help.com