[delphi.com.ar]

Empezado por salvica

Bien, el código funciona pero .... (siempre hay un pero), una etiqueta de otro panel se desactiva tambien
¿donde meto la pata?

¿Estas pasando el contenedor correcto?...

Código Delphi [-]
procedure EnableControls(AContainer: TWinControl; AClass: TControlClass; AValue: Boolean);
var
  i: Integer;
begin
  for i := 0 to AContainer.ControlCount -1 do
    if AContainer.Controls[i] is AClass then
      AContainer.Controls[i].Enabled := AValue;
end;

procedure TForm1.CheckBox1Click(Sender: TObject);
begin
  EnableControls(Panel1, TLabel, CheckBox1.Checked);
end;