Viele Komponenten schneller in den Eigenschaften ändern

[Nils_13]

Beispiel:

Delphi-Quellcode:

procedure TfrmMain.FormCreate(Sender: TObject);
var i : Integer;
begin
  for i := 0 to ComponentCount - 1 do
  begin
    if Components[i] is TPanel then 
      (Components[i] as TPanel).ParentBackground := False;
  end;
end;

EDIT: Das darf nicht wahr sein ! Schon wieder einer eher