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.

markieren

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.

Wie Sender an TimerEvent weitergeben?

Wie Sender an TimerEvent weitergeben?

Re: Wie Sender an TimerEvent weitergeben?

Re: Wie Sender an TimerEvent weitergeben?

Forumregeln

Thorben_Ko Registriert seit: 8. Jun 2007 86 Beiträge	#2 Re: Wie Sender an TimerEvent weitergeben? 12. Jan 2008, 11:32 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. markieren Delphi-Quellcode: case (Sender as TTImer).Tag of+ //blabla Thorben
	Zitat

formosa Registriert seit: 8. Apr 2006 Ort: Shanghai 29 Beiträge Delphi 7 Professional	#3 Re: Wie Sender an TimerEvent weitergeben? 12. Jan 2008, 11:47 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.
	Zitat