Re: Create Hypertext to call Forms

Return to index

Author

Message

Sergey Tkachenko

Posted: 05/05/2005 13:03:43

Add hyperlinks like other fields, but set Jump property = True (modify

TemplateEditor's TForm1.GetFieldStyleNo, or create a copy of this

procedure).

OnJump can be like this:

uses CRVFData;

procedure TForm1.rvOutputJump(Sender: TObject; id: Integer);

var Code: String;

    RVData: TCustomRVFormattedData;

    ItemNo: Integer;

    frm: TForm2;

begin

  rvOutput.GetJumpPointLocation(id, RVData, ItemNo);

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

  if Code='show_form2' then begin

    frm := TForm2.Create(Application);

    frm.ShowModal;

    frm.Free;

  end;

end;

>

> Hi

> I use a DBRichViewEdit.

> I use this example

> "http://www.trichview.com/support/files/mailmerge-freestyle.zip"

> to insert formatted fields in the rv.

> and I am not obtaining to make the function rv.Onjump.

> I need insert hypertexts (they need to be "Protection") and they need call

> respective forms.

> how make this?

>

> thanks

> Diogo

>