Ver Mensaje Individual
  #2  
Antiguo 07-12-2011
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola Leandro.

Un modo puede ser:
Código Delphi [-]
procedure TForm1.ButtonsOnOff(Activo: Boolean);
begin
  ...
  Button2.Enabled:= Activo;
  Button3.Enabled:= Activo;
  ... 
end;

Otro:
Código Delphi [-]
procedure TForm1.ButtonsOnOff(Activo: Boolean);
var
  i: Integer;
begin
  for i:= 0 to ComponentCount -1 do
    if Components[i] is TButton then
      TButton(Components[i]).Enabled:= Activo;
end;
Este último deshabilita todos los botones del form.

Llamada:
Código Delphi [-]
  ButtonsOnOff(False); // Deshabilitar;
  ButtonsOnOff(True); // Habilitar;

De todas formas creo que no te reconoce los botones por que los estás referenciando desde un procedimiento y no un método del form, intentá así:
Código Delphi [-]
...
  TForm1 = class(TForm);
  ...
  private
     procedure habilitar;
  end;
...
implementation

procedure TForm1.habilitar;
...

Saludos.
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....

Última edición por ecfisa fecha: 07-12-2011 a las 00:08:17.
Responder Con Cita