usar as setas
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
Curtidas 0
Respostas
Paulo
20/01/2006
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
GOSTEI 0
Paulo
20/01/2006
Perdão, KEYPREVIEW = TRUE e não false como disse
GOSTEI 0