Hola scigliano,
Para lo que quieres hacer, yo lo hago de esta manera espero te sirva.
OPCION 1
- Habilitar y desabilitar los controles deseados del FORM
Código Delphi
[-]procedure TFode.OnOfCtrl(const Enabled: Boolean; Ctrls: array of TControl);
var
i: Integer;
begin
for i:= Low(Ctrls) to High(Ctrls) do
Ctrls[i].Enabled:= Enabled;
end;
USO:
Habilitar
Código Delphi
[-]Fode.OnOfCtrl(True,[Edit1,Edit2,Edit3,.....]);
Desabilitar
Código Delphi
[-]Fode.OnOfCtrl(False,[Edit1,Edit2,Edit3,.....]);
OPCION 2
Habilitar & desabilitar todos los controles que hay en un FORM
Código Delphi
[-]procedure TFode.OnOfForms( Enabled: Boolean; F :TForm );
var
Lista: TList;
i :integer;
begin
Lista := TList.Create;
try
F.GetTabOrderList(Lista);
for i := 0 to Lista.Count - 1 do
if TWinControl(Lista[i]) is TEdit then
TEdit(Lista[i]).Enabled := Enabled
else
if TWinControl(Lista[i]) is TcxTextEdit then
TcxTextEdit(Lista[i]).Enabled := Enabled
else
finally
Lista.Free;
end;
end;
USO:
Habilitar
Código Delphi
[-]Fode.OnOfForms( True, Form1 );
Desabilitar
Código Delphi
[-]Fode.OnOfForms( False, Form1 );
Puedes adaptarle a lo que necesitas, espero sea útil.