Ja die gibt es, sie ist sogar recht einfach:
Delphi-Quellcode:
procedure TfoMain.SetAllColors;
var i,f : Integer;
begin
for f:=0 to Screen.FormCount-1 do begin
for i:=0 to Screen.Forms[f].ComponentCount-1 do
if Screen.Forms[f].Components[i] is TListbox then ( Screen.Forms[f].Components[i] as TListBox).Color:=NewColor;
end;
end;
Wenn du glück hast klappt das, habe ich jetzt nicht getestet, kann sein das er ein paar Fehler enhält...
ab