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