trichview.com

trichview.support




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;





Powered by ABC Amber Outlook Express Converter