Moin...
Zitat:
Oder gibt es noch einen besseren Weg?
...spendiere den Ereignisbehandlungsroutinen einen Aufruf
auf deine eigene private procedure. Da kannst du soviel Parameter angeben wie du willst.
Beispiel:
Delphi-Quellcode:
private
procedure PrintDocument(Document: TDocument; PageCount, PageHeight: Integer);
...
procedure TfoDocuments.btnPrintClick(Sender: TObject);
begin
PrintDocument(FLastdocument, 0, 1);
end;