在窗体上放上ApplicationEvents控件,在OnMessage消息中加入如下代码:
void __fastcall TForm1::ApplicationEvents1Message(tagMSG &Msg,
bool &Handled)
{
if( Msg.message == WM_KEYDOWN && 40 == Msg.wParam && (GetKeyState(VK_CONTROL)&0x8000))
{
ShowMessage("按下了组合键ctrl+下箭头");
}
}