Problemas com o dbComboBox

[Germano Solter 0]

Crio no evento onChange do dbcombobox o seguinte código:

if DBComboBox1.ItemIndex = 0 then
    begin
      Label3.Caption := 'CNPJ';
      Label2.Caption := 'Razao Social';
      dmCadOS.qryCadCli.FieldByName('cnpj').EditMask := '!00.000.000/0000-00;0;_'
    end;
 
if DBComboBox1.ItemIndex = 1 then
    begin
      Label3.Caption := 'CPF';
      Label2.Caption := 'Nome';
      dmCadOS.qryCadCli.FieldByName('cnpj').EditMask := '!000.000.000-00;0;_'
    end;

 

Se eu usar o teclado para seta e selecionar o item funciona perfeitamente mas quando vou usar o mouse ele até executa as funções porem a lista de itens fica em branco.

alguem ja passou por isso e pode me ajudar?

[Chrnos 30]

Qual lista de itens? No código que postou, está setando o caption de dois labels e a máscara do campo cnpj da sua query... tá confuso entender o que está acontecendo só com o que postou, explica melhor com mais detalhes!