Re : Create Hypertext to call Forms

Return to index

Author

Message

Diogo

Posted: 05/11/2005 14:39:11

Ok,

FIRST:

when I add the record in the table I have the FIELD name added in RV. how

I can find the field in the document before saving?

or

the field is protected I need select it all to delet, correct? in this case,

it does not have a function to see when the field is being excluded?

another necessity is disabled the Undo" when excluding a field. How?

I go to read the records of the table and for each register I go to look

the field in the document.

SECOND its work correctly. thanks !

> 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;