Desabilita DBEdit
31/08/2004
0
Pessoal estou com um pequeno problema será que alguem poderia me dar uma mãozinha???
segue:
:arrow: Tenho uma tabela (TABLE1), esta possui 3 campos (TIPOCADASTRO, CPF , CNPJ, EMPRESA, NOME)
:arrow: Bem tenho um FORM com os seguintes componentes: (DBCOMBOBOX_TIPOCADASTRO, DBEDIT_CPF, DBEDIT_CNPJ, DBEDIT_EMPRESA, DBEDIT_NOME),
:arrow: O DBCOMBOBOX tem duas opções ( PESSOA FISICA e PESSOA JURIDICA)
:arrow: Gostaria de fazer a seguinte mecanica... Quando seleciono PESSOA FISICA Desabilita o DBEDIT_EMPRESA e o DBEDIT_CNPJ, da mesma forma se selecionar PESSOA JURIDICA desabilita os DBEDITS DBEDIT_NOME e o DBEDIT_CPF.
:arrow: Utilizei o seguinte código porem sem sucesso:
Alguem tem outra sintaxe pra me ajudar...
Obrigado.
segue:
:arrow: Tenho uma tabela (TABLE1), esta possui 3 campos (TIPOCADASTRO, CPF , CNPJ, EMPRESA, NOME)
:arrow: Bem tenho um FORM com os seguintes componentes: (DBCOMBOBOX_TIPOCADASTRO, DBEDIT_CPF, DBEDIT_CNPJ, DBEDIT_EMPRESA, DBEDIT_NOME),
:arrow: O DBCOMBOBOX tem duas opções ( PESSOA FISICA e PESSOA JURIDICA)
:arrow: Gostaria de fazer a seguinte mecanica... Quando seleciono PESSOA FISICA Desabilita o DBEDIT_EMPRESA e o DBEDIT_CNPJ, da mesma forma se selecionar PESSOA JURIDICA desabilita os DBEDITS DBEDIT_NOME e o DBEDIT_CPF.
:arrow: Utilizei o seguinte código porem sem sucesso:
begin if DBCOMBOBOX_TIPOCADASTRO = ´PESSOA FISICA´ then DBEDIT_EMPRESA.ENABLED = FALSE and DBEDIT_CNPJ.ENABLED = FALSE Else DBEDIT_NOME.ENABLED = FALSE and DBEDIT_CPF.ENABLED = FALSE end;
Alguem tem outra sintaxe pra me ajudar...
Obrigado.
Klaveren
Curtir tópico
+ 0
Responder
Posts
31/08/2004
Sandra
klaveren,
Faça assim:
Faça assim:
begin if DBCOMBOBOX_TIPOCADASTRO = ´PESSOA FISICA´ then begin DBEDIT_EMPRESA.Enabled := False; DBEDIT_CNPJ.Enabled := False; end else begin DBEDIT_NOME.Enabled := False; DBEDIT_CPF.Enabled := False; end; end;
Responder
Clique aqui para fazer login e interagir na Comunidade :)