Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   GUI-Design mit VCL / FireMonkey / Common Controls (https://www.delphipraxis.net/18-gui-design-mit-vcl-firemonkey-common-controls/)
-   -   Delphi Wie Sender an TimerEvent weitergeben? (https://www.delphipraxis.net/106527-wie-sender-timerevent-weitergeben.html)

formosa 12. Jan 2008 10:54


Wie Sender an TimerEvent weitergeben?
 
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 12. Jan 2008 11:32

Re: Wie Sender an TimerEvent weitergeben?
 
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 12. Jan 2008 11:47

Re: Wie Sender an TimerEvent weitergeben?
 
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.


Alle Zeitangaben in WEZ +1. Es ist jetzt 05:12 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz