Deshabilitar TODOS los componentes de un Form

[TrUnkS]

Hola amigos del foro. Trabajo con Delphi 7 y mi problema es que me he visto en la necesidad de deshabilitar todos los componentes de un form si el RUT de una persona o clave es inválida al ingresarla en un Edit. Bueno resulta que he tenido que deshabilitar los componentes uno por uno, osea, Edit1.Enabled:=False, ComboBox1.Enabled:=False ... etc.. pero no quiero deshabilitarlos uno por uno porque son demasiados, sino todos juntos con una sola isntrucción pero menos el Edit para ingresar el RUT a ver si es posible. Se agradece algun aporte gracias.

[[maeyanes]]

Puedes probar recorrer todos los componentes de la forma:

Código Delphi [-]
for I := 0 to ComponentCount - 1 do
  if Components[i] is TControl then
    TControl(Components[i]).Enabled := False

Saludos...

[vtdeleon]

Saludos

Existen varias formas:
1ra - Recorrer todos lso componentes e ir deshabilitando.

Código Delphi [-]
for I:= 0 to Form1.ComponentCount-1 do 
  Components[i].Enable:=False;

2da - Agrupar todos los componentes en un contenedor, sea un Panel o un GroupBox. Y deshabilitando este contenedor se deshabilita todos sus componentes internos.

[TrUnkS]

Funciona de las 2 formas .. se agradece muchas gracias