Die Farbe von TLabel mit einem Click ändern ?

[Pr0g]

Du greifst auch einfach nur auf die Klasse TLabel zu und nicht auf eine spezielle Instanz, das geht natürlich nicht. Schreib folgendes in den private-Abschnitt deiner Form:

Delphi-Quellcode:

  private
    { Private-Deklarationen }
    procedure ChangeLabelColors(const AColor: TColor);

Dann die Implemetierung der Prozedur:

Delphi-Quellcode:

procedure TForm1.ChangeLabelColors(const AColor: TColor);
var
  i: Integer;
begin
  for i := 0 to ComponentCount - 1 do
    if (Components[i] is TLabel) then
      (Components[i] as TLabel).Font.Color := AColor;
end;

Ich habe jetzt mal Font.Color genommen, da du warscheinlich die Schrfitfarbe und nicht die Hintergrundfarbe ändern willst. Aufrufen kannst du das ganze dann so:
ChangeLabelColors(clNavy); Edit: @BenjaminH: Warum machst den Parameter als "var"?
Edit2: Achso, das war ja oben schon.

MfG Pr0g