Foros Club Delphi - Ver Mensaje Individual - Inhabilitar botones según el estatus en una tabla de la base de datos!!!

[maeyanes] · #11 14-03-2013

Hola...

También puedes "sobrecargar" el método UpdateActions de TForm:

Código Delphi [-]type
  TMyDataForm: class(TForm)
  protected
    procedure UpdateActions; override;
  end;

implementation

procedure TMyDataForm.UpdateActions;
var
  Disabled: Boolean;

begin
  inherited;
  Disabled := qry_edo_habestatus.value <> 'DES';
  BTN1.Enabled := Disabled;
  BTN2.Enabled := not Disabled;
  BTN3.Enabled := not Disabled;
  BTN4.Enabled := not Disabled;
  BTN5.Enabled := not Disabled;
  BTN6.Enabled := not Disabled
end;

Saludos...