Jedes Objekt übergibt sich ja selber beim Aufrufen einer Ereignisprozedur im Parameter Sender an die Ereignisprozedur. Und diesen Parameter kann man ja vergleichen (siehe 1), oder seine Parameter abfragen (siehe 2).
1: Sender mit den Namen der verschiedenen Timer vergleichen:
Delphi-Quellcode:
Procedure TForm1.TimerXTimer(Sender: TObject);
Begin
If Sender = Timer1 Then ShowMessage('Ich bin Timer: 1');
If Sender = Timer2 Then ShowMessage('Ich bin Timer: 2');
...
End;
2: oder in jedem Parameter Tag (siehe
OI) eine andere Zahl eintragen und siese auswerten:
Delphi-Quellcode:
{Timer1.Tag = 1}
{Timer1.Tag = 2}
{...}
Procedure TForm1.TimerXTimer(Sender: TObject);
Begin
ShowMessage('Ich bin Timer: ' + IntToStr(TTimer(Sender).Tag));
End;