Komponenten in allen Forms ändern

Hallo Zusammen!
Nachdem der Anwender Farbeinstellungen im Konfigurations-Fenser meiner Anwendung verändert hat, sollen ausgewählte Komponenten in allen Forms der Anwendung sofort angepasst werden. Mit folgendem (beispielhaften) Code kann ich das innerhalb eines Fensters erledigen...

markieren

Delphi-Quellcode:

			procedure TfoMain.SetAllColors;

var i : Integer;

begin

  for i:=0 to ComponentCount-1 do

    if Components[i] is TListbox then (Components[i] as TListBox).Color:=NewColor;

end;

Nun sollen aber ALLE Listboxen in ALLEN Forms der Anwendung auf diese bequeme Weise farblich angepasst werden. Versuche, dies mit folgendem Code zu erledigen, hatten keinen Erfolg...

markieren

Delphi-Quellcode:

			procedure TfoMain.SetAllColors;

var i : Integer;

begin

  with Application do                       // << ZUSÄTZLICH

    for i:=0 to ComponentCount-1 do

      if Components[i] is TListbox then (Components[i] as TListBox).Color:=NewColor;

end;

Gibt es da eine Lösung?

Komponenten in allen Forms ändern

Komponenten in allen Forms ändern

Forumregeln