Para utilizar la propiedad enabled de todos los componentes debes referenciarlos utilizando la clase TControl:
Código Delphi [-]
procedure TForm5.DesabilitarGrupos(g: TGroupBox);
var
i: Byte;
begin
for i:=0 to g.ComponentCount-1 do
(g.Components[i] as TControl).Enabled:=False;
end;
__________________
"La recompensa de una buena acción está en haberla hecho"
Última edición por DarkMan fecha: 30-09-2008 a las 00:40:10.
|