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...
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...
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?