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

[ozsWizzard]

Empezado por Neftali

Me he perdido...

Al editar, me decía que no podía. Había puesto "y yo... " y sólo quité los puntos suspensivos. Me decía que no podía tener un mensaje de menos de 10 caracteres (todo esto en ingles)

Al poner el texto que citas ya me dejó colgar el mensaje (evidentemente, ya había superado los 10 caracteres)

[ecfisa]

Otra opción:

Código Delphi [-]
procedure TForm.Tu_DataSetAfterScroll(DataSet: TDataSet);
var
  i: Integer;
begin
  for i:= 2 to 6 do
    TButton(FindComponent('BTN'+IntToStr(i))).Enabled:= qry_edo_habestatus.value = 'DES';
  BTN1.Enabled := not BTN2.Enabled
end;

Saludos.

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

[ecfisa]

Empezado por maeyanes

Hola...

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

Esa también es una excelente opción.

Saludos.

[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!!!