Inhabilitar botones según el estatus en una tabla de la base de datos!!!

[rotsen26]

Empezado por maeyanes

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...

Disculpe, en donde se encuentra "UpdateActions", es en algún evento especial o donde se coloca el codigo ese???

[ecfisa]

Hola rotsen26.

En el formulario en que residen los botones del que ignoramos el nombre (de allí TMyDataForm), cuál te indicó maeyanes agregas la palabra protected y declaras el procedimiento. (o copias y pegas desde aquí)
La cabecera y código correspondiente al mismo, van en la sección Implementation. (Shift+Ctrl+C la genera automáticamente)

Saludos.

[rotsen26]

Gracias a Todos por sus aportaciones, ya solucioné el problema!!!