Hola, AlejandroCalica.
Tag de apertura: [ DELPHI ] (Sin espacios)
Tag de cierre: [ / DELPHI ] (Sin espacios)
El procedimiento que usas está validando específicamente a los TEdit para cambiar el valor de Enabled.
Te comparto este procedimiento. puede que te sea de utilidad para lo que necesitas
Código Delphi
[-]
type
TForm1 = class(TForm)
procedure SetControlEnable(TheControl: TWinControl; Value: Boolean); overload;
procedure SetControlEnable(TheControls: array of TWinControl; Value: Boolean); overload;
end;
procedure TForm1.SetControlEnable(TheControls: array of TWinControl; Value: Boolean);
var
i : Integer;
begin
for i := 0 to High(TheControls) do
SetControlEnable(TheControls[i], Value);
end;
procedure TForm1.SetControlEnable(TheControl: TWinControl; Value: Boolean);
var
i : integer;
begin
for i := 0 to TheControl.ControlCount - 1 do
begin
if TheControl.Controls[i] is TWinControl then
SetControlEnable(TWinControl(TheControl.Controls[i]), Value)
else
TheControl.Controls[i].Enabled := Value;
end;
TheControl.Enabled := Value;
end;
Código Delphi
[-]
SetControlEnable(Edit1, not Edit1.Enabled);
SetControlEnable(Panel1, not Panel1.Enabled);
SetControlEnable([Edit1, Panel1, Panel2], True);