Alle Child-Komponenten deaktivieren

[choose]

Hallo barnti,

bei der TGroupBox handelt es sich um einen Erben von TWinControl, der über die Eigenschaften Controls und ControlCount die ihm untergeordneten Elemente veröffentlicht.

Du könntest, um Dein Problem zu lösen, über alle untergeordneten Element iterieren und für diese jeweils die Eigenschaften setzen. Solltest Du jedoch mehrere solcher Boxen (zB auch Panels) inneinander verschachteln, könnte ein rekursiver Ansatz weiterhelfen.

Die folgende Prozedure demonstriert, was ich meine (und sollte ggf an Deine Bedürfnisse weiter angepasst werden):

Delphi-Quellcode:

procedure SetEnabledRecursivly(AControl: TControl; AEnabled: Boolean);
var
  iChild: Integer;
begin
  // set state of control
  AControl.Enabled := AEnabled;

  // if control contains further controls...
  if (AControl is TWinControl) then
    with TWinControl(AControl) do
    // ...set state for each child (recursive)
    for iChild := 0 to Pred(ControlCount) do
      SetEnabledRecursivly(Controls[iChild], AEnabled);
end;

mit einem Aufruf der Art:
SetEnabledRecursivly(GroupBox1, False); EDIT: Ups, etwas zu langsam