usar as setas
20/01/2006
0
Ola Pessoal
Montei uma tela de consulta, onde a um edit em que vc
vai digitando e em baixo coloquei uma grid onde vão
aparecendo os nomes cfe vao sendo digitado no Edit
O que eu gostaria de sabe como poderia fazer o cursor
passar para a grid quando fosse teclado a Seta para baixo.
Grato
Claudio
Montei uma tela de consulta, onde a um edit em que vc
vai digitando e em baixo coloquei uma grid onde vão
aparecendo os nomes cfe vao sendo digitado no Edit
O que eu gostaria de sabe como poderia fazer o cursor
passar para a grid quando fosse teclado a Seta para baixo.
Grato
Claudio
Claudiocjr
Curtir tópico
+ 0
Responder
Posts
20/01/2006
Paulo
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key = vk_down then begin
Perform(CM_DialogKey, VK_Down, 0);
end;
end;
procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key = vk_up then begin
perform(cm_dialogkey, vk_up, 0);
end;
end;
Lembrando que a propriedade KeyPreview do form deve estar para false
Responder
Clique aqui para fazer login e interagir na Comunidade :)