Hallo Hilfe,
wenn ich aus meinem Programm mit dem Code:
Delphi-Quellcode:
procedure TForm1.DruckvorschauClick(Sender: TObject);
begin
with TQRPrinter.Create do
begin
Printerindex := -1;
QRForm1.QuickRep.Page.PaperSize := PaperSize;
Free;
end;
QRForm1.QuickRep.OnPreview := ShowPreview;
QRForm1.QuickRep.Preview;
end;
//***************************************************************************
procedure TForm1.Showpreview(Sender: TObject);
begin
QRPreviewForm.QRPreview1.QRPrinter := TQRPrinter(Sender);
QRPreviewForm.Show;
end;
eine Vorschau starte und wieder beende z.B. mit "close", läßt sich mein Programm nicht mehr beenden.
Es funktioniert noch alles, aber weder auf "close" noch auf den Systembutton "X" erfolgt eine Reaktion. Auch "onClose" wird nicht aufgerufen.
Hat jemand eine Idee?