Problemas com OnKeyDown/OnKeyUp

Delphi

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

Hideki

Curtidas 0

Respostas

Hideki

Hideki

28/02/2008

Resolvido


GOSTEI 0
POSTAR