TNotifyEvent mit zusätzlichen Parametern ?

**MrMooed**

Guten Abend DP,

ich bin immernoch dabei eine Art 'Tron' zu programmieren und bin erneut an meine Grenzen gestoßen

In dem Project soll jedes Fahrzeug (Bike) einen Timer bekommen mit dem es sich bewegt. (Jeder einen eigenen, damit sie sich unterschiedlich schnell bewegen können) Nun kreiere ich meine Timer dynamisch und weise ihnen das .OnTimer Event zu. Allerdings möchte ich, dass die procedur sich unterschiedlich verhällt, je nach dem welcher Timer das Event ausgelöst hat.

Doch nun stellt sich mir das Problem, dass ich einem TNotifyEvent keine Parameter übergeben kann und somit nicht feststellen kann wer es ausgelöst hat

Mein Wissen

Deklaration:

markieren

Delphi-Quellcode:

			Timer: Array of TTimer;

Tasten: TQueue;

Bike: Array of TBike;

Erstellung der Timer:

markieren

Delphi-Quellcode:

			for i:=0 to Pred(pTimerAnzahl) do begin

    SetLength(Timer, Succ(i));

    Timer[i] := TTimer.Create(nil);

    Timer[i].Interval := 10;

    Timer[i].OnTimer  := onTimer(Timer[i], i);

    Timer[i].Enabled  := True;

    end;

onTimer:

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TSpielfeld.onTimer(Sender: TObject);

begin

  if Sender = Timer[0]

    then if Tasten.Count > 0

           then

             case Word(Tasten.Pop) of

               70: Bike[0].dreheLinks; 

               74: Bike[0].dreheRechts;

               end;

  (Sender as TTimer).Enabled := False;

  bewegeBikes(Sender);//stellt nach Bewegung (Sender as TTimer).Enabled := True

  .

  .

end;

TNotifyEvent mit zusätzlichen Parametern ?

TNotifyEvent mit zusätzlichen Parametern ?

Forumregeln