Wie Sender an TimerEvent weitergeben?

[formosa]

Hallo,

Wie kriege ich den Sender ins Timer Event?

Delphi-Quellcode:

procedure TForm1.TrackBar1Change(Sender: TObject); 
begin
  Timer1.Enabled := true //
end;

procedure TForm1.Timer1Timer(Sender: TObject); // <---- Sender?
begin
  If Sender = TrackBar1 then beep;
end;

Ich hab Momentan keine Idee wie ich das machen soll.

Vielen Dank schon mal an euch

Gruss Chris

[Thorben_Ko]

Kein Einfach: Gar net

Der Sender ist die Komponente der das Event auslösst. DAs brauchst du wenn du mehrer Komponenten die selbe Procedure zuweisst, dann kannst du den auslöser über den sender ermitteln.

Delphi-Quellcode:

case (Sender as TTImer).Tag of+

//blabla

Thorben

[formosa]

Danke. Habs mittlerweile selbst rausgefunden. War ein Denkfehler von mir. Der Sender ist ja die Kompo die das Event ausführt. In meinem Fall Timer1 oder Timer2.