Ereignis dynamisch zuweisen

**Moony**

Hallo zusammen,

ich weiß, diese Thema ist des öfteren hier breitgetreten worden, aber ich finde einfach den Fehler bei mir nicht:
Ich möchte zwei Timer dynamishc erzeugen. Ich besitze keine Formulare! diesen Timern sollen das das OnTimer-Event zugewiesen werden. Das habe ich folgendermaßen gemacht:

zusammenfalten · markieren

Delphi-Quellcode:

			type

  TmyTimer = class

    procedure OnTimer(Sender: TObject);

  end;

var

  Timer1   : TTimer;

  Timer2   : TTimer;

  _myTimer : TmyTimer;

...

procedure MeineFunktion(Sender: TObject);

begin

  ...

  Timer1.OnTimer := _myTimer.OnTimer(Sender);

  Timer2.OnTimer := _myTimer.OnTimer(Sender);

  ...

end;

...

initialization

  Timer1 := TTimer.Create(nil);

  Timer2 := TTimer.Create(nil);

finalization

  Timer1.Free;

  Timer2.Free;

Beim Zuweisen sagt er mir Inkompatible Typen: TNotifyEvent und Procedure

Hoffe ihr könnt mir helfen.

Gruß, Moony

Ereignis dynamisch zuweisen

Ereignis dynamisch zuweisen

Forumregeln