Perdendo O Foco

[hintz]

quando vou abri o cupom, executo os seguintes comandos:

Str_Informacao := frmEcf.ACBrECF1.NumCupom;

Ret_Ecf := ACBrECF1.Estado;

verifico o status:

StatTran := StatusTransacao_EcfAcbr();

abro o cupom:

frmEcf.ACBrECF1.AbreCupom('', '', '');

edCodigo.SetFocus;

 

em duas maquinas (com impressora fiscal bematech) aconteceu o seguinte:

depois que faço os comandos acima, dou o foco num componente tEdit, digito o codigo do item, ou passo o leitor de codigo de barras,

dou o enter, para validar no envento onexit e simplesmente não passa pelo evento onexit. Clico de novo no tEdit digito o codigo e dai sim funciona. Quando abro um novo cupom acontece o mesmo novamente, no primeiro item.

Alguem já passou por isso?

Como Resolver?

obs.: já troquei o componente tEdit por outro, mas o problema persiste.

 

      Atenciosamente,

 

                                                Hintz....

[EMBarbosa]

   O evento onExit só acontece quando "você sai do componente", ou seja, se o componente TEdit não perder o foco, este evento não vai acontecer. Você não especificou o mecanismo empregado para esperar que o evento aconteça, então não faço ideia de qual pode ser o seu problema.

[hintz]

Não entendi o que vc quer dizer por "especificou o mecanismo empregado para esperar que o evento aconteça".

o que eu fiz foi digitar o codigo da mercadoria e teclar enter. quando teclo enter num componente ele passa para o proximo componente, passando pelo evento onexit, só que neste caso isto não acontece. Simplesmente ele passa para o proximo componente sem passar por qualquer evento.

[EMBarbosa]

   O que eu quis dizer é: exatamente como você espera que digitando ENTER o foco vá para outro componente e assim seja chamado o onExit. Esse não é um comportamento padrão do componente e nem do SO. Você precisa codificar isso de alguma maneira.

   De qualquer forma, a melhor maneira de você descobrir é debugar o código dentro da VCL e verificar o motivo dele não estar chamando o evento. Talvez possa começar verificando o método TWinControl.DoExit. O único problema é que debugar essa parte do código é muito difícl.

[hintz]

O Problema é que, no cliente, não consigo debugar. Teria outra maneira de forçar o foco no componente alem do setfocus?

[EMBarbosa]

Só se você for mexer com a API do Windows ou usar o componente ACBrEnterTAB.

 

Mas eu tenho uma pergunta, se você não tem como debugar, como sabe que o código não está passando pelo evento onExit? E a propósito, você ainda não disso como transforma o ENTER para acessar o próximo edit.

 

Ainda a propósito, sua dúvida não é sobre o componente, e por isso a estou movendo para a área correta sobre Pascal/Lazarus/Delphi/programação