Desativar um Botao caso a tabela estaja vazia

Question

Coloquei um bot�o chamado �Excluir� para fazer a exclus�o de registros de uma tabela, mas se eu clicar nele e a tabela n�o contiver nenhum registro, da um erro. Tem como desativar este bot�o em tempo de excu��o quando a tabela estiver sem nehum registro.

Debug · Answer

[code:1:cff83508d2]procedure TMasterCad.ToolBar_Botoes( Inserindo : Boolean = True);begin  TBNovo .Enabled     := not Inserindo;  TBEditar.Enabled    := (not Inserindo) and (not TabelaMaster.IsEmpty);  TBCancelar.Enabled  := Inserindo;  TBApagar.Enabled    := (not Inserindo) and (not TabelaMaster.IsEmpty);  TBSalvar.Enabled    := Inserindo;  TBLocalizar.Enabled := not Inserindo;  TBFechar.Enabled    := not Inserindo;end;procedure TMasterCad.DSTabelaMasterStateChange(Sender: TObject);begin  inherited;  ToolBar_Botoes(State_Insert(TabelaMaster));end;[/code:1:cff83508d2]...

Maxadens · Answer

A alternatica seria n�o desabilitar o bot�o e sim, exibir uma mensagem
Coloque o seguinte comando no bot�o excluir

if TABELA.recordcount=0 then
application.messagebox(�N�o existe registro para excluir!�,�Aviso�,mb_Iconexclamation)
else
TABELA.delete;

obs: N�o sei se todas as palavras est�o escritar corretamente pois estou se Delphi aqui no momento. Mas tenho certeza que � isso ai e funciona.

Lucas Silva · Answer

Ao inves de usar TABELA.recordcount = 0 eu acho melhor usar TABELA.IsEmpty.fica  bem mais r�pido, seu programa....

Lindomir · Answer

if tabela.isEmpty them botao.Enabled := false;...

Emerson Nascimento · Answer

botao.enabled := not tabela.isempty;...

Vispo · Answer

fico grato a todas as respostasAbra�os...

F�rum Desativar um Botao caso a tabela estaja vazia #226704