Bei dyn. erzeugten Labels die Text Farbe ändern

[Christian18]

Hallo faux,

ich habe deinen lösungsvorschlag gerade mal getestet. ich finde ihn sehr gut. aber leider funktioniert er bei mir nicht. habe ich was falsch gemacht???

hier mein geänderter code:

Delphi-Quellcode:

procedure TFMain.Menu1(Sender: TObject);
  var i : Integer;  // Schleifenvariable
begin
  // Menu1
  for i:=0 to FMain.ControlCount - 1 do
    begin
      if FMain.Controls[i] is TLabel then
        begin
          if (FMain.Controls[i] as TLabel).Tag = 1 then
            begin
              (FMain.Controls[i] as TLabel).Font.Color:=clWindowText;
            end;
        end;
    end;

  TLabel(Sender).Font.Color:=clRed;
end;