application.events 识别组合键 参考。

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.  
   }