delphi 如果按下 ese 键则showmessage() 如何写代码

来源：百度知道编辑：UC知道时间：2024/06/13 22:20:31

delphi 如果按下 ese 键则showmessage() 如何写代码
监视某一个键值的按下如何实现？
if VK_ESCAPE=Key then
timer1.Enabled:=false; 我写的这一句问什么按下esc没有效果？

procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if VK_ESCAPE=Key then
ShowMessage('ESC Press');
end;

要是看你想用的全局还是只在自己窗体上面按了.
全局可以用全局原子注册快捷键或者键盘钩子

首先说明下是不是按下ESC键，ESE键不知道在哪里
虚拟键是可以实现，钩子更加厉害不过最简单的是用一个TAction
设置Action的Shortcut为ESC 再写Action的OnExecute事件即可，想怎麼写就怎麼写