Fórum DBGrid : ativar o evento OnDblClick #222679
26/03/2004
0
tenho uma tela de vendas no meu sistema que utiliza um formulario de busca, composto por um edit e um dbgrid, onde digito no edit o nome do produto e uma query vai filtrando os dados e enviando para o dbgrid, quando eu localizo o produto eu dou dois clique nele e ele vai direto pra minha tela de vendas, o que funciona perfeitamente. meu problema é o seguinte: eu tenho desenvolver o sistema de modo a que o usuario utilize o minimo possivel o mouse. O que eu preciso é saber como faço para a tecla enter disparar o evento OnDblClick da dbgrid.
Agradeço antecipadamente.
Flaviosan :P
Flaviosan
Curtir tópico
+ 0Posts
26/03/2004
Fabio.hc
procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if Key = VK_RETURN then DBGrid1DblClick(Sender);; end;
Gostei + 0
26/03/2004
Lucas Silva
if key #13 then DBGridDblClick(dbGrid1);
Gostei + 0
26/03/2004
Flaviosan
o codigo compila blz, mas o enter nao funciona, vou tentar usando um actionlist, obrigado.
Flaviosan :P
Gostei + 0
26/03/2004
Flaviosan
Flaviosan :P
Gostei + 0
26/03/2004
Lucas Silva
Deve tá faltando algum ponto e virgula ou coisa do tipo ai no seu código..
Coloca ele ai....
Gostei + 0
26/03/2004
Flaviosan
if key #13 then DBGRIDPESQDblClick(Sender);
sera que é asim mesmo, sem um sinal e igual ´=´?
Flaviosan :P
Gostei + 0
26/03/2004
Flaviosan
obrigado pessoal.
Gostei + 0
26/03/2004
Lucas Silva
com certeza!!!!!!!
if key = #13 then DBGRIDPESQDblClick(Sender);
Gostei + 0
26/03/2004
Flaviosan
valeu.
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)