Hintergrundfarbe in allen Formularen ändern

[Jansteger]

Hi,
Ich möchte die Hintergrundfarbe in allen Formularen ändern. Bis jetzt mache ich das immer so:

Code:

Form1.Color:=clblue;
Form2.Color:=clblue;
Form3.Color:=clblue;
Form4.Color:=clblue;
Form5.Color:=clblue;
Form6.Color:=clblue;
Form7.Color:=clblue;
Form8.Color:=clblue;
Form9.Color:=clblue;
Form10.Color:=clblue;
Form11.Color:=clblue;

Das ist aber eine Enorme Tipp-Arbeit! Geht das auch irgendwie kürzer?

[Der schöne Günther]

Mach dir doch einfach eine Liste (TList<TForm> oder TObjectList ), adde die Formulare und immer wenn du die Farbe ändern willst, gibt es ein for lustigeForm in formListe do lustigeForm.Color := meineFarbe;

[DeddyH]

Wenn es nur um die aktuell angezeigten Formulare geht, könnte man auch über Screen.Forms interieren.

Delphi-Quellcode:

for i := 0 to Screen.FormCount - 1 do
  Screen.Forms[i].Color := clRed;