Viele Buttons eine Prozedur

Computer: Software & Programmierung Delphi & Pascal
#1

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

#2

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

#3

Hi,

so:

if Assigned(Sender) AND (Sender.ClassType=TButton) then
TButton(Sender).Color:=clRed;

#4

… Allerdings gibt es Sender.Color nicht. …

if Sender is TButton then
with Sender as TButton do Color := clred;

Gruss Reinhard

#5

Hi!

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

#6

Hey,
Danke für eure Antworten! Hatte ganz vergessen zu antworten, das es geklappt hat :smiley:

Ich glaube ich hatte Wolfgangs Methode benutzt… Bin mir aber nach nen guten Monat auch nicht mehr so sicher xD