Ereignisbehandlungsroutinen "fremdaufrufen"

[haentschman]

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;