为什么不捕捉VK_ESCAPE键？

Question

以下代码中其它按键都好使，唯独 if Key in [VK_ESCAPE]却不捕捉，Why?if Key in [VK_UP, VK_PRIOR, VK_LEFT] then PrevImgActionExecute(Sender)
  else if Key in [VK_DOWN, VK_NEXT, VK_RIGHT] then NextImgActionExecute(Sender)
  else if Key in [VK_END] then LastImgToolBTNClick(Sender)
  else if Key in [VK_HOME] then FirstImgToolBTNClick(Sender)
  else if Key in [VK_ESCAPE] then ExitActionExecute(Sender);

Answer 1

我试了，下面代码能用的。不知你在什么控件里点的，可能消息让你的控件吃了。
if Key = VK_ESCAPE then
begin
 showmessage( 'adfasdf' );
end;