ImageEn, unit iexRichEdit

TIEUrlClickEvent


Declaration

  TIEUrlClickEvent = procedure(Sender: TObject; const URL: string; Button: TMouseButton) of object;

Example

procedure TMainForm.EditorURLClick(Sender: TObject; const URL: string; Button: TMouseButton);
begin
  ShellExecute(Handle, nil, PChar(URL), nil,  nil, SW_SHOWNORMAL)
end;