Event mit Parameter der sich selbst enthält

[jim_raynor]

Zitat von marabu:

Nicht alles ist gut, was geht. Der vom FrameWork vorgelebte Standardweg sieht so aus:

Delphi-Quellcode:

type
  TSZOnFinishEvent = procedure(Sender: TObject) of object;

  TSZTestClass = class(TComponent)
  private
    FOnFinishEvent: TSZOnFinishEvent;
  end;

Grüße vom marabu

Dann kannst du auch gleich TNotifyEvent benutzten. Da finde ich die Lösung von Treffnix wesentlich eleganter und du ersparst dir fleißiges Typcasten in dem Event-Handler.