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.