{Primeiro, coloque a propriedade KeyPreview do formulário como TRUE. Depois, insira este código no evento OnKeyDown do formulário:}
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
if Key = VK_F5 then
showMessage('I pressed the F5 key');
end;
//Você também pode usar as variáveis VK_F1 até VK_F12 referentes as outras teclas de função.
Assinar:
Postar comentários (Atom)
Nenhum comentário:
Postar um comentário