Re: Create Hypertext to call Forms

Return to index

Author

Message

Sergey Tkachenko

Posted: 05/08/2005 21:42:59

> FIRST

>

I think, the simplest solution for this problem is analyzing the whole

document on its saving.

>

> SECOND

Well, invent some prefix for your hyperlink codes. In my example, show-form

tags were started from 'show_'.

Your code in OnJump can be like this:

procedure TForm3.RichViewEdit1Jump(Sender: TObject; id: Integer);

var

   Code: String;

   RVData: TCustomRVFormattedData;

   ItemNo: Integer;

begin

   RichViewEdit1.GetJumpPointLocation(id, RVData, ItemNo);

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

   if Copy(Code, 1, 5)='show_' then begin

     // call your code here

     end

   else

     rvActionsResource.rvActionInsertHyperlink1.GoToLink(RichViewEdit1, id);

end;