Bei dyn. erzeugten Labels die Text Farbe ändern

[Der_Unwissende]

Hi,
wenn du nur zwischen zwei Labels hin und her wechselst (also es immer nur ein rotes gibt und das letzte rote schwarz wird), dann brauchst du nur eine globale Variable (also Klassenvariable geht bei klassen-methoden natürlich auch).
Dort speicherst du dein aktuell gewähltes Label (das, dass rot ist).
Wenn du nun auf ein Label klickst, machst du etwas wie

Delphi-Quellcode:

var redLabel : TLabel; // Kein Jonny W., sondern die globale Var
...
...
begin
  if assigned(redLabel) then
    begin
      redLabel.Font.Color := clBlack;
    end; 
  if assigned(Sender) and (Sender is TLabel) then
    begin
      redLabel := Sender as TLabel;
      redLabel.Font.Color := clRed;
    end; 
end;

Ansonsten ist es ein schönerer Weg ein TControlList statt einem Array zu benutzen

Gruß Der Unwissende