TNotifyEvent

[mirage228]

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:
  
  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