Captura de teclas
11/12/2003
0
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
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
Fcc.campos
Curtir tópico
+ 0
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
Clique aqui para fazer login e interagir na Comunidade :)