Desabilita DBEdit

31/08/2004

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:

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

Respostas

31/08/2004

Sandra

klaveren,

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 Citar