Hi,

TNotifyEvent ist eine procedure of object, d.h., dass sie darauf "ausgelegt" ist, in einer Klasse zu sein. Sie beinhaltet nämlich noch den versteckten "Self" Paramter.

Du hast folgende Möglichkeiten:

• Du packst Sie als (class)-Procedure in eigene Klasse
• Du machst es so:
  
  zusammenfalten · markieren

  Delphi-Quellcode:

  procedure MyOnTimer(Self, Sender : TObject);
  begin
    // Do something....
  end;
  
  var
    Event: TNotifyEvent;
  begin
    TMethod(Event).Code := @MyOnTimer;
    TMethod(Event).Data := nil; // Self in der procedure ist dann = nil!
    // ...
    Timer.OnTimer := Event;
  end.

mfG
mirage228