Farbe aller Labels ändern

[Alliya]

Hallo
Ich möchte gerne, das ein label, wenn ich drauf klicke, die farbe ändert. Das geht auch. Nur wenn ich auf ein anderes label drücke, soll das vorherige dann wieder schwarz werden.
Ich weiß nur halt nicht, welches von den labels da jetzt von dem benutzer angeklickt wurde und wieder zurückgesetzt werden muß.
Kann man irgendwie allen labels auf einmal eine farbe zuweisen? Oder hat jemand ne idee wie ich das realisieren kann?
Möchte irgendwie vermeiden, das ich allen 16 labels jedesmal einzeln die farbe zuweisen muß...

vielen dank in vorraus

[Jelly]

Hi,

so kannst du zumindest mal alle Labels finden:

Delphi-Quellcode:

var
 i : integer ;
begin
     for i := 0 to componentcount-1 do begin
        if components[i] is TLabel
        then with components[i] as TLabel do begin
           font.color := clRed ;
        end ;
     end ;
end;

Gruß,
Tom

[Sharky]

Zitat von Alliya:

...Ich weiß nur halt nicht, welches von den labels da jetzt von dem benutzer angeklickt wurde und wieder zurückgesetzt werden muß...

Hai Alliya,
welches Label angelickt wurde erfährst Du über die Variabel Sender im OnClick-Event. Zusammen mit dem Code von Jelly kannst Du dein Problem dan ganz einfach lösen.

[Alliya]

ah, vielen dank ihr beiden. Klappt hervorragend

[Sharky]

Zitat von Alliya:

ah, vielen dank ihr beiden. Klappt hervorragend

Verstehe ich das so das Du jetzt eine OnClick Procedure für alle Labels hast?

[Alliya]

jo, nur eine.