How to implement URL jump for current item under cursor ?

Return to index

Author

Message

Marsianin

Posted: 03/20/2005 23:08:36

Hi.

I need to make any TButton which will implement URL jump function for link under current item.

I've tryed to use this (from OnJump in Editor 1 example), but I need to use it when I press my button, so that event doesn't have id. How to get this ID ?

procedure TMainForm.TBXItem170Click(Sender: TObject);

var URL    :String;

      RVData :TCustomRVFormattedData;

      ItemNo :Integer;

begin

  RichViewEdit1.GetJumpPointLocation(id,RVData,ItemNo);

  URL:= PChar(RVData.GetItemTag(ItemNo));

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

end;

I've tryed to use RichViewEdit1.GetCurrentItem.JumpID instead id, but it causes an exception :(