Programm läßt sich nicht beenden

[MaPaPiap]

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?

[MrKnogge]

was steht denn in "OnClose" drinn ?

[MaPaPiap]

Da schließe ich nur den ComPort.
Ich habe aber dort schon einen Breakpoint gesetzt: Der wird aber nicht erreicht.

Delphi-Quellcode:

   procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
   ComPort1.close;   
end;

OnClose der Vorschau benutze ich nicht.
Ich vermute ich muß noch irgend etwas beenden oder schließen, aber was?

[Tpercon]

Das müßte doch auch so aussehen:

Delphi-Quellcode:

with TQRPrinter do
  begin
    Create;
    Printerindex := -1;
    QRForm1.QuickRep.Page.PaperSize := PaperSize;
    Free;
  end;

[MaPaPiap]

Ich muß erst "create"n bevor ich mit QRPrinter arbeiten kann.
Aber MrKnogge hat genau die richtige Frage gestellt:
Mit

Delphi-Quellcode:

procedure TQRPreviewForm.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
   QRPreview1.Destroy;
end;

funktioniert es.
Ich weiß zwar nicht genau warum aber es klappt!
Vielen Dank noch mal.

[Die Muhkuh]

Zitat von MaPaPiap:

Ich muß erst "create"n bevor ich mit QRPrinter arbeiten kann.
Aber MrKnogge hat genau die richtige Frage gestellt:
Mit

Delphi-Quellcode:

procedure TQRPreviewForm.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
   QRPreview1.Destroy;
end;

funktioniert es.
Ich weiß zwar nicht genau warum aber es klappt!
Vielen Dank noch mal.

Mach aus dem
  QRPreview.Destroy ein
  QRPreview.free Normalerweiße ist "free" besser wie "destroy"

Spider

[MaPaPiap]

OK
Klappt auch

[Die Muhkuh]

Zitat von MaPaPiap:

OK
Klappt auch

Freut mich

[MaPaPiap]

Hallo nochmal zusammen,
leider zu früh gefreut!
Nachdem ich folgenden Code ergänzt habe

Delphi-Quellcode:

procedure TQRPreviewForm.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
   QRPreview1.Free;  
end;

läßt sich mein Programm zwar beenden, aber ich kann die Vorschau nur einmal aufrufen.Beim zweiten Aufruf erfolgt eine EAccessViolation in der unten markierten Zeile. Wenn ich diese Zeile entferne, ist auch "QRPreview1.Free" nicht mehr notwendig (ich sehe zwar meinen Report nicht mehr aber ich kann Vorschau beleibig oft öffnen und das Programm beenden) ?=> Es schein noch irgendetwas activ zu sein, was das Beenden verhindert, wenn ich es aber mit Free komplett entferne wird es beim anzeigen nicht neu erzeugt.
Was ist das, und wie heißt der Busfahrer

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;

Ich komme nicht weiter. Ich vermute da fehlen mir einige Theoretische Grundlagen.