Array
(
)

usar as setas

Claudiocjr
   - 20 jan 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


Paulo
   - 20 jan 2006


Citação:
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;



Citação:
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


Paulo
   - 20 jan 2006

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