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