Alle Komponenten einer Form auf enabled := false setzen

[JoelH]

gibt es eine Möglichkeit alle Komponenten (actionliste, buttons editfelder etc) auf einmal .enabled := false zu setzen für eine Form oder muss ich mir eine riesen Liste machen und dann jedes einzelne Element false setzen ?

[MrSpock]

Hallo JoelH,

diese Liste gibt es schon, sie heißt Components, die Anzahl der Komponenten liefert die ComponentCount. Schau dir diese beiden Eigenschaften mal in der OH an.

[darkstone]

Mit einer rekursiven procedure müsste das gehen - so in dieser Art:

Delphi-Quellcode:

procedure Ctrl_SetEnabledState( ACtrl: TWinControl; State: Boolean );
var
  ChildCtrl: TWinControl;
  i: Integer; // Laufvar.
begin
  // Alle Child-Controls disablen
  for i:=0 to ACtrl.ControlCount do begin
    ChildCtrl := ACtrl.Controls[i];
    if ChildCtrl is TWinControl then begin
      Ctrl_SetEnabledState( ChildCtrl, State );  // Rekursion!
    end;
  end;
  // Control disablen
  ACtrl.Enabled := State;
end;

Voraussetzung dafür ist natürlich, dass die property "Enabled" in TWinControl definiert ist - das weiss ich jetzt nicht auswendig. Aber so - oder so ähnlich - müsste es gehen.

[Jens Schumann]

Hallo,
es sollte so

Delphi-Quellcode:

procedure TForm1.Ctrl_SetEnabledState(aForm, ACtrl: TWinControl; State: Boolean );
var
  ChildCtrl: TWinControl; 
  i: Integer; // Laufvar. 
begin 
  // Alle Child-Controls disablen 
  for i:=0 to ACtrl.ControlCount-1 do begin 
    ChildCtrl := TWinControl(ACtrl.Controls[i]); 
    if ChildCtrl is TWinControl then begin 
      begin  
      If ChildCtrl<>aForm then // Dadurch wird das Form nicht berücksichtigt
        ChildCtrl.Enabled := State;
      Ctrl_SetEnabledState(aForm,ChildCtrl, State );  // Rekursion!
      end;
    end; 
  end; 
end;

lauten

Dieser Aufruf setzt Enabled alle Controls auf False jedoch nicht das Formular

Code:

Ctrl_SetEnabledState(Form1,Form1,False);

[JoelH]

Danke :)