Desabilitando BitBtn

Delphi

20/05/2004

Bem pessoal é o seguinte...
tenho uma tabela [b:48ae8b681a](table1)[/b:48ae8b681a] e um botão [b:48ae8b681a](BitBtn1)[/b:48ae8b681a] bem o botão recebe o seguinte valor 
table1.delet;
porém mesmo quando não existe valores digitados na tabela ele executa o comando fazendo com que o programa gere um erro pois na verdade não existe nada para ser excluido.

Gostaria de saber se alguem poderia me dizer como desabilitar esta botão caso não existam dados na tabela???


MUITO OBRIGADO!!!
[b:48ae8b681a]XV DE CAMPO-BOM DES DE PEQUENININHO!!![/b:48ae8b681a]


Klaveren

Klaveren

Curtidas 0

Respostas

Motta

Motta

20/05/2004

no evento afteropen da Ttable

faça

bitbtn1.enable := (table1.recordcount>0);


GOSTEI 0
Mokado

Mokado

20/05/2004

8) Vc coloca no oncreate do form uma condição que verifica se a tabela ta vazia:
...
tabela.open
bit.enable := not tabela.eof
...
com isso vc desabilita o botao caso a tabela seja vazia e nao desabilita caso seja nao vazia.
mas vc deve executar o mesmo comando apos excluir um item da tabela e apos inserir tambem!!!


GOSTEI 0
Klaveren

Klaveren

20/05/2004

cara os códigos que vcs me mandaram não habilita depois de cadastrada aalguma informação, o bitbtn continua desabilitado!!!
a propósito não é necessário add nada no bitbtn? somente no form????
e no ´primeiro exemplo somente no evento da tabele????


obrigado.


GOSTEI 0
Paulo_amorim

Paulo_amorim

20/05/2004

Olá

Pow cara, quando vc cadastrar, ponha um Enabled True no botão
E na programação desse teu botão vc tem que testar denovo...

Ou seja, toda vez que alterar o número do RecordCount o botão deve verificar se a tabela ficou vazia/cheia...

Até+


GOSTEI 0
Rsballoussier

Rsballoussier

20/05/2004

Dentro do evento OnUpdateData de TDataSource:
BitBtn1.Enabled := not TDataSource(Sender).DataSet.IsEmpty;

Até mais.


GOSTEI 0
POSTAR