添加了TCppWebBrowser之后,Form的按键消息就被迫屏蔽而不好捕捉,我们可以先添加一个TApplicationEvents在其Message事件里填写以下代码 void __fastcall TForm1::ApplicationEvents1Message(tagMSG &Msg, bool &Handled) { IOleInPlaceActiveObject __RPC_FAR *iOIPAO; IDispatch __RPC_FAR *Dispatch; if(CppWebBrowser1==NULL) { Handled=false; return; } Handled = (IsDialogMessage(CppWebBrowser1->Handle,&Msg)); if(Handled&&(!CppWebBrowser1->Busy)) { if(FOleInPlaceActiveObject==NULL) { Dispatch=CppWebBrowser1->Application; if(Dispatch!=NULL) { Dispatch->QueryInterface(__uuidof(IOleInPlaceActiveObject),(void**)&iOIPAO); if(iOIPAO!=NULL) { FOleInPlaceActiveObject = iOIPAO; } } } if(FOleInPlaceActiveObject!=NULL) { if((Msg.message==WM_KEYDOWN||Msg.message==WM_KEYUP)) { if(Msg.wParam==VK_UP) { ShowMessage("fuck"); } } } else { FOleInPlaceActiveObject->TranslateAccelerator(&Msg); } } }