Hallo,
ein Beispiel (von vielen) ist in der sehr empfehlenswerten Dokumentation zu lesen:
Zitat:
Any report can become interactive. To perform this, you only need to create a
TfrxReport.OnClickObject event handler. Here is a code example of this handler below:
Delphi-Quellcode:
procedure TForm1.frxReport1ClickObject(Page: TfrxPage; View: TfrxView;
Button: TMouseButton; Shift: TShiftState; var Modified: Boolean);
begin
if View.Name = 'Memo1' then
ShowMessage('Memo1 contents:' + #13#10 + TfrxMemoView(View).Text);
if View.Name = 'Memo2' then
begin
TfrxMemoView(View).Text := InputBox('Edit', 'Edit Memo2 text:',
TfrxMemoView(View).Text);
Modified := True;
end;
end;
Das Gleiche gilt natürlich auch für den Event
TFrxReport.OnMouseOverObject.