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;