sender Buttons Prozedur

Viele Buttons eine Prozedur

Von: , Frage gestellt am Mi, 16. Mär 2011

Hallo,
Ich habe 49 Buttons auf meiner Form. Nun möchte ich, das alle beim Anklicken eine Prozedur aufrufen, noch nicht problematisch.
Nun wollte ich mit dem Sender überprüfen, welcher Button geklickt wurde und dessen Color ändern. Allerdings gibt es Sender.Color nicht. Wie kann ich jetzt also den Sender auswerten bzw. verändern?

Gruß
GURKE

5 Antworten zu dieser Frage

1. Antwort von nach 2 Stunden 0 hilfreich

   Re: Viele Buttons eine Prozedur

   Hi Gurke
   
   Hmmm... würd es mal so versuchen:
   

   if sender=button1 then button1.Color:=clred;
   if sender=button2 then button2.Color:=clred;
   usw...
   

   
   Gruss
   Sam99
   

2. Antwort von nach 20 Stunden 1 hilfreich

   Re: Viele Buttons eine Prozedur

   Hi,
   
   so:
   
   <code>
   
   if Assigned(Sender) AND (Sender.ClassType=TButton) then
   TButton(Sender).Color:=clRed;
   </code>
   

3. Antwort von nach einem Tag 1 hilfreich

   Re: Viele Buttons eine Prozedur

   ... Allerdings gibt es Sender.Color nicht. ..
   <code>
   if Sender is TButton then
   with Sender as TButton do Color := clred;
   </code>
   
   Gruss Reinhard
   

4. Antwort von nach 36 Tagen 0 hilfreich

   Re: Viele Buttons eine Prozedur

   Hi!
   
   Schau mal in der Delphi-Hilfe nach dem Begriff FindComponent.
   

5. Antwort von nach 36 Tagen 0 hilfreich

   Re: Viele Buttons eine Prozedur

   Hey,
   Danke für eure Antworten! Hatte ganz vergessen zu antworten, das es geklappt hat :D
   
   Ich glaube ich hatte Wolfgangs Methode benutzt... Bin mir aber nach nen guten Monat auch nicht mehr so sicher xD
   

Keine passende Antwort gefunden? Jetzt eigene Frage stellen!