Ver Mensaje Individual
  #13  
Antiguo 23-03-2013
rotsen26 rotsen26 is offline
Miembro
NULL
 
Registrado: ene 2013
Posts: 41
Reputación: 0
rotsen26 Va por buen camino
Cita:
Empezado por maeyanes Ver Mensaje
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???
Responder Con Cita