请问在delphi中如何判断f5键被按下？

Question

我在keypress中写Key = Char(vk_F5)
但是没有效果

Answer 1

或者用消息
procedure wmmy(var msg: TMessage);message WM_KEYDOWN;procedure TForm1.wmmy(var msg: TMessage);
begin
  if msg.WParam = VK_F5 then showmessage('adslfj');
end;

Answer 2

区别就是如果焦点不在你的应用程序上，用消息是截不住的。用keyboardhook可以！

Answer 3

在keydown事件中判断
   if key=vk_F5 then
   begin 
    .
    .
   end

Answer 4

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key=116 then showmessage('F5');
end;