usar as setas

20/01/2006

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


Claudiocjr

Respostas

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 Citar

20/01/2006

Paulo

Perdão, KEYPREVIEW = TRUE e não false como disse


Responder Citar