Otra opción es parametrizar las clases que quieres deshabilitar. Eso sí, deben ser todos los de las clases especificadas. Con esta opción no puedes escoger unos TEdit si y otros no.
Algo así:
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;
De forma que puedes llamarlo así:
Código Delphi
[-]
BloquearComponentes(Self, [TEdit]);
BloquearComponentes(Self, [TEdit, TCheckbox]);
BloquearComponentes(Self, [TEdit, TCheckbox, TDateTimePicker]);