Captura de teclas
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
Curtidas 0
Respostas
Beppe
11/12/2003
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.
GOSTEI 0