Código Delphi [-] Procedure BloquearComponentes (Form :TForm; arrayClass:array of TComponentClass); Var i :Integer; c:TComponentClass; Begin for i := 0 to (Form.ComponentCount - 1) do begin for c in arrayClass do begin if (Form.Components[i] is c) then begin TWinControl(Form.Components[i]).Enabled := False; end; end; end; end;
Procedure BloquearComponentes (Form :TForm; arrayClass:array of TComponentClass); Var i :Integer; c:TComponentClass; Begin for i := 0 to (Form.ComponentCount - 1) do begin for c in arrayClass do begin if (Form.Components[i] is c) then begin TWinControl(Form.Components[i]).Enabled := False; end; end; end; end;
Código Delphi [-] // Para deshabilitar TEdit y descendientes BloquearComponentes(Self, [TEdit]); // Para deshabilitar TEdit, TCheckbox y descendientes... BloquearComponentes(Self, [TEdit, TCheckbox]); // ... y así sucesivamente BloquearComponentes(Self, [TEdit, TCheckbox, TDateTimePicker]);
// Para deshabilitar TEdit y descendientes BloquearComponentes(Self, [TEdit]); // Para deshabilitar TEdit, TCheckbox y descendientes... BloquearComponentes(Self, [TEdit, TCheckbox]); // ... y así sucesivamente BloquearComponentes(Self, [TEdit, TCheckbox, TDateTimePicker]);