IWebBrowser2在没有焦点时响应滚轮事件

 首先, 获得IE控件窗口句柄, 父窗口调用EnumChildWindows, 回调函数代码:

BOOL CALLBACK CWebDialog::EnumChildProc(HWND hwnd, LPARAM lParam)

{

CWebDialog* webDialog = (CWebDialog*)(lParam);

return webDialog->EnumChildProc(hwnd);

}

BOOL CWebDialog::EnumChildProc(HWND hwnd)

{

// 窗口类别名

TCHAR classname[200];

GetClassName(hwnd, classname, _countof(classname));

// 窗口类型

DWORD style = 0;

style = (DWORD)GetWindowLong(hwnd, GWL_STYLE);

// 查找IE控件窗口

if (CString(_T("Internet Explorer_Server")).Compare(classname) == 0)

{

m_htmlWindow = hwnd;

}

return true;

}

其次, 截获WM_MOUSEWHEEL事件

BOOL CXXXView::PreTranslateMessage(MSG* pMsg)

{

if (pMsg->message == WM_MOUSEWHEEL)

{

if (m_dlgXXX.Scroll(pMsg))

{

return TRUE;

}

}

return CXXXDialog::PreTranslateMessage(pMsg);

}

再次, 转发WM_MOUSEWHEEL事件

BOOL CWebDialog::Scroll(MSG* pMsg)

{

if (pMsg->message == WM_MOUSEWHEEL &&

m_htmlWindow != NULL &&

m_htmlWindow != pMsg->hwnd)

{

::PostMessage(m_htmlWindow, WM_MOUSEWHEEL, pMsg->wParam, pMsg->lParam);

return TRUE;

}

return FALSE;

}

最后, 感谢许冬、周宏杰的帮助!