Captura de teclas

11/12/2003

1

Estou tentando fazer algo muito simples e não consigo veja o código abaixo
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
If Key = VK_Return Then ShowMessage(´Você apertou o enter´);
end;
Simplesmente eu tento debugar e nem pelo codigo ele passa quando pressiono a tecla enter, estou com o windows xp e o delphi 6.0 alguem poderia me ajudar.


Muito Obrigado

Fabricio


Responder

Posts

11/12/2003

Beppe

Se o foco está em um controle filho, o form não recebe key(down/press/up). Você precisa configurar KeyPreview do form como True para receber.


Responder
×
+1 DevUP
Acesso diário, +1 DevUP
Parabéns, você está investindo na sua carreira