Alle Komponenten einer Application ändern

[Michael Habbe]

Da fehlt eine Klammer zu ")"

Zitat von Dragon27:

Delphi-Quellcode:

for I := 0 to Application.ComponentCount-1 do
begin
  if Application.Components[i] is TForm then
  begin
    for i2 := 0 to TForm(Application.Components[I]).ComponentCount -1 do
      TLabel(TForm(Application.Components[I]).Components[i2].Font.Color := clRed;
                                                           ^^ da fehlt die Klammer zu ")"
  end;
end;

Aber er zeigt diesen einen Fehler:

Zitat:

[Fehler] LoadFrame.pas(75): E2003 Undefinierter Bezeichner: 'Font'