alle untergeordneten Fenster bearbeiten

[omata]

Delphi-Quellcode:

procedure SetEnabled(AControl:TComponent; AEnable:boolean);
var i:integer;
    Control:TComponent;
begin
  if AControl is TWinControl then begin
    for i:=1 to TWinControl(AControl).ControlCount do begin
      Control:=TWinControl(AControl).Controls[i-1];
      if Control is TWinControl then begin
        TWinControl(Control).Enabled:=AEnable;
        SetEnabled(Control, AEnable);
      end;
    end;
  end;
end;