F�rum Problemas com OnKeyDown/OnKeyUp #354557

28/02/2008

Pessoal, estou utilizando com problemas no evento OnKeyDown e OnKeyUp de um TDBLookupListBox. O que est� acontecendo � o seguinte: quando ando pelo banco de dados com no TDBLookupListBox com as Setas direcionais era para aparacer no TDBText a descricao do Procedimento , s� que est� havendo um atraso, por exemplo: quando estou no procedimento A e passo para o Procedimento B, o DBText est� recebendo o procedimento A, se passo para o procedimento C, o DBText passa a receber o B,. Como fa�o para resolver isso? No meu DataSet esta tudo perfeitamente funcionando, utilizando o evendo OnClick funciona perfeitamente.

If Key = VK_Up then
begin
  dmUnimed.qryAuxAmb92_1.Close;
  campo:= dbLFamilia.KeyValue;
  dmUnimed.qryAuxAmb92_1.SQL.Clear;
  dmUnimed.qryAuxAmb92_1.SQL.Add(�select * from AMB92GRUPO where cod_familia = �+campo+� order by descricao�);
  dmUnimed.qryAuxAmb92_1.Open;
  dbtCodigo.Caption := dbLFamilia.KeyValue+�.XX.XXX/X�;
end;

If Key = VK_Down then
begin
  dmUnimed.qryAuxAmb92_1.Close;
  campo:= dbLFamilia.KeyValue;
  dmUnimed.qryAuxAmb92_1.SQL.Clear;
  dmUnimed.qryAuxAmb92_1.SQL.Add(�select * from AMB92GRUPO where cod_familia = �+campo+� order by descricao�);
  dmUnimed.qryAuxAmb92_1.Open;
  dbtCodigo.Caption := dbLFamilia.KeyValue+�.XX.XXX/X�;
end;

Se alguem puder me dar um HELP agrade�o!

Atenciosamente

Hideki

Curtir t�pico

+ 0

Responder

Posts

29/02/2008

Hideki

Resolvido

Responder

Gostei + 0