Komponenten in allen Forms ändern

[dataspider]

Hi,

so ganz grob durch die Forms der Application iterieren:

Delphi-Quellcode:

procedure TForm27.FormCreate(Sender: TObject);
Var
  fi: Integer;
  ci: Integer;
begin
  for fi := 0 to screen.FormCount - 1 do
    for ci := 0 to Screen.Forms[fi].ComponentCount - 1 do
      ...
end;

Cu, Frank