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

[rotsen26]

Buenas tardes amigos, estoy queriendo hacer algo sobe inhabilitar los botones según el estatus el cual es un campo dentro de una tabla...

Lo que quiero hacer es algo parecido a esto...

Ej.

Código Delphi [-]
if qry_edo_habestatus.value='DES' then
    begin
      BTN1.Enabled:=true;
      BTN2.Enabled:=false;
      BTN3.Enabled:=false;
      BTN4.Enabled:=false;
      BTN5.Enabled:=false;
      BTN6.Enabled:=false;
    end;

Como se muestra en el ejemplo, si es estatus es 'Des' el único botón habilitado sea el primero, y si es en caso contrario se pongan los otros habilitados y el primero no.

Si alguien sabe como solucionarlo y alguna otra manera de hacerlo se lo agradecería mucho!!!

[[Caral]]

Hola
No se si entiendo bien, pero si es solo cambiar la condicion del primer boton, tal vez usando un else sea suficiente:

Código Delphi [-]
if qry_edo_habestatus.value='DES' then
    begin
      BTN1.Enabled:=true;
      BTN2.Enabled:=false;
      BTN3.Enabled:=false;
      BTN4.Enabled:=false;
      BTN5.Enabled:=false;
      BTN6.Enabled:=false;
    end
else
    begin
      BTN1.Enabled:=false;
      BTN2.Enabled:=true;
      BTN3.Enabled:=true;
      BTN4.Enabled:=true;
      BTN5.Enabled:=true;
      BTN6.Enabled:=true;
   end;

Saludos

[rotsen26]

Empezado por Caral

Hola
No se si entiendo bien, pero si es solo cambiar la condicion del primer boton, tal vez usando un else sea suficiente:

Código Delphi [-]
if qry_edo_habestatus.value='DES' then
    begin
      BTN1.Enabled:=true;
      BTN2.Enabled:=false;
      BTN3.Enabled:=false;
      BTN4.Enabled:=false;
      BTN5.Enabled:=false;
      BTN6.Enabled:=false;
    end
else
    begin
      BTN1.Enabled:=false;
      BTN2.Enabled:=true;
      BTN3.Enabled:=true;
      BTN4.Enabled:=true;
      BTN5.Enabled:=true;
      BTN6.Enabled:=true;
   end;

Saludos

La verdad así lo tengo pero me marca un error...
http://www.clubdelphi.com/foros/atta...1&d=1363223728

[[Caral]]

Hola
Me parece raro, el error no creo que tenga que ver con esto.
No se.
saludos

[ecfisa]

Empezado por Caral

Hola
Me parece raro, el error no creo que tenga que ver con esto.
No se.
saludos

Totalmente de acuerdo, nada parece indicarlo.

El único modo que se me ocurre que podría traer problemas, es que los botones aún no estuvieran instanciados en ese punto del código .

Saludos.

[Neftali [Germán.Estévez]]

Ejecuta paso a paso y a ver en qué línea falla, porque el código no parece tener nada incorrecto.
Yo como soy un poco "flojo" hubiera hecho algo así:

Código Delphi [-]
b := qry_edo_habestatus.value='DES';

BTN1.Enabled:= b;
BTN2.Enabled:= not b;
BTN3.Enabled:= not b;
BTN4.Enabled:= not b;
BTN5.Enabled:= not b;
BTN6.Enabled:= not b;