procedure para contenedores me da error

[[movorack]]

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 [-]
//Modificar solo un control
SetControlEnable(Edit1, not Edit1.Enabled);

//Modificar un contenedor y los controles que tenga. Por ej un Panel
SetControlEnable(Panel1, not Panel1.Enabled);

//Modificar varios controles y/o contenedores
SetControlEnable([Edit1, Panel1, Panel2], True);