怎么用快捷键关闭程序窗口？

Question

程序中有个窗口使用比较频繁，想设置Esc为关闭窗口的快捷键，好像KeyPress事件不能用来做这个工作，不知道怎么写

Answer 1

在OnKeyDown事件里面写
if (Key=VK_ESCAPE) then
begin
  //你的操作
end;

Answer 2

假设你的这个窗口是form2，那么在form2的onkeydown事件中写入：
在OnKeyDown事件里面写 
if (Key=VK_ESCAPE) then 
begin 
  form2.close; 
end;

Answer 3

1 窗体的Keypreview属性设置为True
2 窗体的OnKeydown事件为
  if (Key=VK_ESCAPE) then Self.Close;