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:

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

[dataspider]

Hi,

Delphi-Quellcode:

initialization 
  Timer1 := TTimer.Create(nil); 
  Timer1.OnTimer := MeineFunktion;
  Timer2 := TTimer.Create(nil); 
  Timer2.OnTimer := MeineFunktion;

Und OnTimer ist ein Event und existiert in TTimer schon.
Du solltest es also nicht neu deklarieren in TMyTimer (den brauchst du ja auch nicht).
Und die Zuweisung in MeineFunktion muss natürlich weg.
Dort ist nur das drin, was beim Auslösen des Events erfolgen soll.

[EDIT]Quatsch, das geht so nicht, Moment...[/EDIT]
Frank

[Fussball-Robby]

Zitat:

Zitat von dataspider

Und OnTimer ist ein Event und existiert in TTimer schon.
Du solltest es also nicht neu deklarieren in TMyTimer (den brauchst du ja auch nicht).

Nein nein, er möchte das Event ja dynamisch zuweisen, deshalb muss er es ja überschreiben. Und Events müssen Methoden einer Klasse sein!

Lass mal das (Sender) bei der Zuweisung weg, denn wenn du einen Parameter mitgibst, rufst du die Methode auf, du möchtest sie ja nur zuweisen:

Delphi-Quellcode:

  Timer1.OnTimer := _myTimer.OnTimer;
  Timer2.OnTimer := _myTimer.OnTimer;

Gruß

[Moony]

Danke, genau so gehts.