EntwicklerForum.org

In dem konkreten Fall ging es darum, dass der Benutzer in der Vorschau entscheiden möchte, ob das Logo mit gedruckt werden soll.

Als erstes erstellt man einen zusätzlichen Dialog für die Abfrage.
Dabei ist zu beachten, dass dieser Dialog “Visible:=False” haben muss.

Dann wechselt man in den Report und hinterlegt den Images ein “OnPreviewClick” Ereignis.

Zuletzt Schreibt man den Code ins Event.

procedure logo1OnPreviewClick(Sender: TfrxView; Button: TMouseButton; Shift: Integer; var Modified: Boolean);
begin
  dlgFrage.ShowModal;
  if dlgFrage.ModalResult=mrYes then begin
    Sender.Free;
    Modified := True;
  end;
end;

Fertig.

Be Sociable, Share!

•