关于在COM组件中 ATL/WTL使用webbroswer控件无法响应Ctrl+A Ctrl+V Ctrl+C及回车键的处理

如果在COM组件中ATL/WTL窗口中使用了webbroswer控件，这时默认情况下是无法响应Ctrl+A Ctrl+V Ctrl+C等快捷键的

so我以CDialogImpl类为例子说明

首先创建webbroswer控件使用一个包装类

class CHTMLWin  : public CWindowImpl< CHTMLWin, CAxWindow>
{

::ATL::CComPtr<IWebBrowser2> m_pBrowserApp;

// Message map and handlers
BEGIN_MSG_MAP(CHTMLWin)
MESSAGE_HANDLER(WM_CREATE, OnCreate)
END_MSG_MAP()

virtual void OnFinalMessage(HWND /*hWnd*/)
{
delete this;
}

BOOL PreTranslateMessage(MSG* pMsg)
{
if((pMsg->message < WM_KEYFIRST || pMsg->message > WM_KEYLAST) &&
(pMsg->message < WM_MOUSEFIRST || pMsg->message > WM_MOUSELAST))
return FALSE;

BOOL bRet = FALSE;
// give HTML page a chance to translate this message
if(pMsg->hwnd == m_hWnd || IsChild(pMsg->hwnd))
bRet = (BOOL)SendMessage(WM_FORWARDMSG, 0, (LPARAM)pMsg);

return bRet;
}

LRESULT OnCreate(UINT uMsg, WPARAM wParam, LPARAM lParam, BOOL& /*bHandled*/)
{
LRESULT lRet = DefWindowProc(uMsg, wParam, lParam);

// Connect events
HRESULT hRet = QueryControl(IID_IWebBrowser2, (void**)&m_pBrowserApp);
if(SUCCEEDED(hRet))
{
if(FAILED(DispEventAdvise(m_pBrowserApp, &DIID_DWebBrowserEvents2)))
ATLASSERT(FALSE);
}

// Set host flag to indicate that we handle themes
CComPtr<IAxWinAmbientDispatch> spHost;
hRet = QueryHost(IID_IAxWinAmbientDispatch, (void**)&spHost);
if(SUCCEEDED(hRet))
{
hRet = spHost->put_DocHostFlags(DOCHOSTUIFLAG_NO3DBORDER | DOCHOSTUIFLAG_THEME);
ATLASSERT(SUCCEEDED(hRet));
}

//lRet = LoadSourceHtm() ? 0 : -1;
return lRet;
}

virtual void OnFinalMessage(HWND /*hWnd*/)
{
delete this;
}

}

在对话框中

HHOOK hHook = NULL;

class CHTMLDlg :
public CDialogImpl<CHTMLDlg >,
public CMessageFilter, public CIdleHandler
{

......

CString m_strResourceURL;

CHTMLWin  *m_pHTML ;

static  CHTMLDlg* m_pThis;

// 使用钩子来处理转发消息
static LRESULT FAR PASCAL MsgProc(int nCode, WPARAM wParam, LPARAM lParam)
{
LPMSG lpMsg = (LPMSG) lParam;
if ( nCode >= 0 && PM_REMOVE == wParam )
{
if ( (lpMsg->message != WM_CHAR && lpMsg->message >= WM_KEYFIRST && lpMsg->message <= WM_KEYLAST) )
{
if (m_pThis->PreTranslateMessage(lpMsg)) // 调用CDialogImpl中的PreTranslateMessage，很重要以实现快捷键响应
{
lpMsg->hwnd = NULL;
lpMsg->message = WM_NULL;
lpMsg->lParam  = 0;
lpMsg->wParam  = 0;
}
}
}
return CallNextHookEx(hHook, nCode, wParam, lParam);
}

virtual BOOL PreTranslateMessage(MSG* pMsg)
{
if (pMsg->message==WM_KEYDOWN && pMsg->wParam == 0x0D)
pMsg->message = WM_CHAR; // 将回车转为此种消息以使webbrowser处理

if (m_pHTML  && m_pHTML->PreTranslateMessage(pMsg) )
return TRUE;

return CWindow::IsDialogMessage(pMsg);
}

virtual BOOL OnIdle()
{
return FALSE;
}

LRESULT OnInitDialog(UINT uMsg, WPARAM wParam, LPARAM lParam, BOOL& bHandled)
{
bHandled = TRUE;

m_pThis = this;

CString szModule;
if (GetModuleFileName(_AtlBaseModule.m_hInst, szModule.GetBuffer(_MAX_PATH), _MAX_PATH))
{
m_strResourceURL.Format(_T("res://%s/%d"), szModule, IDR_HTML1); // 资源中的网页
}
szModule.ReleaseBuffer();

// 创建网页控件
m_pHTML = new CHTMLWin;

m_pHTML->Create(m_hWnd, 0, m_strResourceURL); // m_strResourceURL可以替换为其它URL地址，但必须是URL以确保创建网页控件

hHook = SetWindowsHookEx( WH_GETMESSAGE, MsgProc,
NULL, GetCurrentThreadId() );

return 1;  // Let the system set the focus
}

.....

}

其他钩子的释放不再列出....

其实主要是需要在消息循环中筛选消息向webbroswer窗口发送消息

处理方式为::SendMessage(hWndCtl, WM_FORWARDMSG, 0, (LPARAM)pMsg);

以便使webbroswer控件有机会转换处理；