Re: How to implement URL jump for current item under cursor ?

Return to index

Author

Message

Sergey Tkachenko

Posted: 03/21/2005 21:24:28

var rve: TCustomRichViewEdit;

    URL: String;

begin

  rve := RichViewEdit1.TopLevelEditor;

  if not rve.GetItem(rve.CurItemNo).GetBoolValueEx(rvbpJump, rve.Style) then

    exit; // not a hyperlink

  URL := PChar(rve.GetItemTag(rve.CurItemNo));

  ShellExecute(0,'open',PChar(URL),nil,nil,SW_SHOW);

end;