Viewer für Quickreport-Dateien

[hacki]

Hallo Mario,

wir haben uns zeitlich überschnitten. Ich wollte gerade die Erfolgsmeldung verkünden. Du hast recht, in der QRExtra-dcu ist die Funktion enthalten und es funktioniert:

Code:

procedure TMainForm.Reports1Click(Sender: TObject);
var Dialogo: TOpenDialog;
begin

  with TQRPHandler.Create do
    try
      Dialogo:= tOpenDialog.Create(Application);
      Dialogo.Filter:='QuickReport (*.QRP)|*.QRP';
      if (Dialogo.Execute) then Filename := Dialogo.Filename;
      Dialogo.free;
      Preview;
    finally
      Free;
    end;
    
end;

Nochmals DANKE
grüsse
hacki