TCppWebBrowser Enter 키에 반응하기

C++ Builder 로 간단한 프로그램을 만들던 중 TCppWebBrowser 컨트롤이 Enter 키에 대한 반응이 동작을 하지 않는 경우가 많았다. 그래서 해결 책을 찾아 보았다. 이미 오래전부터 문제가 되었던 것으로 보이는데 해결책도 나와 있었다.

//Header

    IOleInPlaceActiveObject *FOleInPlaceActiveObject;
    void __fastcall MyMessageHandler(TMsg &Msg, bool &Handled);


//Source

__fastcall TfrmMain::TfrmMain(TComponent* Owner)
    : TForm(Owner)
{
    OleInitialize(NULL);
    Application->OnMessage = MyMessageHandler;
}

void __fastcall TfrmMain::FormClose(TObject *Sender, TCloseAction &Action)
{
    OleUninitialize();
}

void __fastcall TfrmMain::MyMessageHandler(TMsg &Msg, bool &Handled)
{
    Handled = IsDialogMessage(WebBrowser->Handle, &Msg) == true;

    if(!Handled || WebBrowser->Busy)
    {
        return;
    }

    if ( (Msg.message==WM_KEYDOWN || Msg.message==WM_KEYUP) &&
        (Msg.wParam==VK_RETURN   || Msg.wParam==VK_TAB) )
    {
        if(FOleInPlaceActiveObject != NULL)
        {
            FOleInPlaceActiveObject->TranslateAccelerator(&Msg);
        }
        else
        {
            IDispatch *Dispatch = WebBrowser->Application;
            if(Dispatch != NULL)
            {
                IOleInPlaceActiveObject *iOIPAO;
                Dispatch->QueryInterface(IID_IOleInPlaceActiveObject, (LPVOID *)&iOIPAO);

                if( iOIPAO != NULL )
                {
                    FOleInPlaceActiveObject = iOIPAO;
                    FOleInPlaceActiveObject->TranslateAccelerator(&Msg);
                }
            }
        }
    }
}

출처 : 볼랜드 포럼

<

Original Post : http://neodreamer-dev.tistory.com/519