Problemas com o DBCOMBOBOX

Delphi

29/12/2013

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?

Lammer Ltda

Lammer Ltda

Curtidas 0
POSTAR