Auf alle Controls eines Panels zugreifen

[samjones]

Hallo Leute !

ich möchte in einer Schleife auf alle Contols auf einem Panel zugreifen,
um eine Eigenschaft der Conrols (z.B. Color) zu ändern.

kann mir jemand einen Tip dazu geben.

vielen Dank im Voraus.

Sam

[dataspider]

Hi,

folgendes Beispiel switcht den Enabled State der Controls auf Wunsch auch recursiv:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  ChangeEnabled(Panel1, True);
end;

procedure TForm1.ChangeEnabled(AControl: TWinControl; Recursiv: Boolean = True);
Var
  i : Integer;
begin
  for i := 0 to Pred(AControl.ControlCount) do
  begin
    AControl.Controls[i].Enabled := not AControl.Controls[i].Enabled;
    if Recursiv and (AControl.Controls[i] is TWinControl) and
               (TWinControl(AControl.Controls[i]).ControlCount > 0) then
        ChangeEnabled(TWinControl(AControl.Controls[i]), Recursiv);

  end;
end;

Cu, Frank

[samjones]

Hallo dataspider

Super ! Sehr elegante Lösung.

Funktioniert bei mir einwandfrei.

Vielen Dank!

Sam