https://blog.csdn.net/chinayu2007/article/details/43761277

在窗体上放上ApplicationEvents控件,在OnMessage消息中加入如下代码:

 

  1.  
    void __fastcall TForm1::ApplicationEvents1Message(tagMSG &Msg,
  2.  
    bool &Handled)
  3.  
    {
  4.  
    if( Msg.message == WM_KEYDOWN && 40 == Msg.wParam && (GetKeyState(VK_CONTROL)&0x8000))
  5.  
    {
  6.  
    ShowMessage("按下了组合键ctrl+下箭头");
  7.  
    }
  8.  
    }