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');
Pergunta
hideki
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 alguém puder me dar um HELP agradeço!
Atenciosamente
Link para o comentário
Compartilhar em outros sites
1 resposta a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.