碰到个郁闷的事,主窗体重载WNDPROC想截获WM_KEYDOWN消息怎么截获不了?

Question

procedure TFmain.WndProc(var Msg: TMessage);
begin
  inherited;
  if (Msg.Msg = WM_KEYDOWN) and (Msg.wParam = VK_ESCAPE) then
  begin
    ShowMessage('截获了');
  end;
end;KEYDOWN事件截获不了?我尝试别的WINDOWS消息,都能正常截获,为什么这个就截获不了,帮忙~~~~~~~~~~~~~~~~~

Answer 1

OK,very 感谢,
但是一次按键响应了两次,
能否只响应一次~~~~~~~~~~~~~

Answer 2

应该是响应了KEYDOWN和KEYUP两个事件造成的吧,怎么指定一个只响应KEYDOWN的?

Answer 3

if Msg.Msg=CN_KEYDOWN then
  begin
    if Msg.CharCode=VK_RETURN then
      ShowMessage('OK');
  end;