Komponenten in allen Forms ändern

[pstruh]

Zur Vollständigkeit noch 'ne kurze Rückmeldung:

Delphi-Quellcode:

procedure TfoMain.SetAllColors;
var i,j : Integer;
begin
  with Screen do
    for i:=0 to FormCount-1 do
      for j:=0 to Forms[i].ComponentCount-1 do
        with Forms[i] do begin
          if Components[j] is TEdit then (Components[j] as TEdit).Color:=ReadModeColor;
          // ...
          // ..
          end;
end;

Funktioniert tadellos!
Gruß