让CppWebBrowser响应回车健

    　　最近本人在研究CppWebBrowser的用法，发现这个控件最大的毛病就是不响应回车，即使用OleInitialize(NULL)来初始化也一样。经过在CSDN的一发查找，发现了Delphi的解决代码，先专成BCB的代码公布如下。

    先声明一个私有变量：
    IOleInPlaceActiveObject __RPC_FAR *FOleInPlaceActiveObject;

    然后在主窗体添加一个ApplicationEvents控件，在它的OnMessage事件里天加入下代码：

    void __fastcall TfmChildwin::ApplicationEvents1Message(tagMSG &Msg,
          bool &Handled)
    {
            IOleInPlaceActiveObject __RPC_FAR *iOIPAO;
            Idispatch __RPC_FAR *Dispatch;
            if(CppWebBrowser==NULL) //CppWebBrowser就是窗体上的CppWebBrowser控件
            {
                    Handled=false;
                    return;
            }
            Handled=(IsDialogMessage(CppWebBrowser->Handle,&Msg));
            if(Handled&&(!CppWebBrowser->Busy))
            {
                    if(FOleInPlaceActiveObject==NULL)
                    {
                            Dispatch=CppWebBrowser->Application;
                            if(Dispatch!=NULL)
                            {
                                    Dispatch->QueryInterface(__uuidof(IOleInPlaceActiveObject),(void**)&iOIPAO);
                                    if(iOIPAO!=NULL)
                                            FOleInPlaceActiveObject = iOIPAO;
                            }
                    }
                    if(FOleInPlaceActiveObject!=NULL)
                            if((Msg.message == WM_KEYDOWNMsg.message==WM_KEYUP)&&(Msg.wParam==VK_BACKMsg.wParam==VK_LEFTMsg.wParam==VK_RIGHT)){}
                            else
                                    FOleInPlaceActiveObject->TranslateAccelerator(&Msg);
            }
    }