Alle Komponenten einer Application ändern

[Michael Habbe]

Zitat von Florian Bernd:

Oder halt so:

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;
  end;
end;

//Edit: Der "rote Kasten" warnt dich beim Abschicken eines Post, wenn in der Zeit während du geschrieben hast neue Beiträge dazukamen. Dass soll verhindern, dass mehrmals der selbe Vorschlag gepostet wird.

Denn habe ich diesen Kasten aber auch schon gehabt. In den letzen Tagen.

Sicherheitshalber auch noch nach Label schauen:

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
      if TForm(Application.Components(I)).Components[i2] is TLabel then
        TLabel(TForm(Application.Components(I)).Components[i2].Font.Color := clRed;
  end;
end;