我正在尝试为Internet Explorer 7.0实现自定义菜单。为此,我只能使用IDocHostUIHandler::ShowContextMenu
。直到现在我能够实现具有两个选项的基本上下文菜单。问题是它们默认是禁用的。相同的示例代码是:
HRESULT CWebEventHandler::ShowContextMenu(DWORD dwID,POINT *ppt, IUnknown *pcmdTarget, IDispatch *pdispObject)
{
if (false) // I will put some guard code here. as of now do not consider it
return S_FALSE; // Show standard context menus.
else
{
IOleWindow* pWnd = NULL;
HRESULT hr = pcmdTarget->QueryInterface(IID_IOleWindow,
(void**) &pWnd);
if (SUCCEEDED(hr))
{
HWND hwnd;
if (SUCCEEDED(pWnd->GetWindow(&hwnd)))
{
HMENU menu = ::CreatePopupMenu();
::AppendMenu(menu, MF_STRING, ID_HELLO, L"&Hello" ); // ID_HELLO & ID_WORLD are two menu resource items
::AppendMenu(menu, MF_STRING, ID_WORLD, L"&World" );
long myRetVal = ::TrackPopupMenu(menu,
TPM_RIGHTBUTTON | TPM_LEFTALIGN | TPM_RETURNCMD,
ppt->x, ppt->y, NULL, hwnd, NULL);
// Send the command to the browser.
//
LRESULT myResult = ::SendMessage(hwnd, WM_COMMAND,
myRetVal, NULL);
}
pWnd->Release();
}
}
return S_OK;
}
请告知此代码有什么问题&为什么我的菜单条目被禁用?
由于
修改
此链接也提供了相同的帖子(http://social.msdn.microsoft.com/Forums/en/ieextensiondevelopment/thread/13584f76-21bd-4764-b5b7-e81932561574)
答案 0 :(得分:0)
我想我已经解决了这个问题。在if (SUCCEEDED(pWnd->GetWindow(&hwnd)))
中获取hwnd对象后,为上下文菜单安装自己的CALLBACK。在回调中
if ((uMsg == WM_INITMENUPOPUP) && (wParam == (WPARAM) menu)) {
return 0;
}
否则让原始处理程序处理它。
一旦完成
long myRetVal = ::TrackPopupMenu(g_hPubMenu,TPM_RIGHTBUTTON | TPM_LEFTALIGN | TPM_RETURNCMD,
ppt->x, ppt->y, NULL, hwnd, NULL);
恢复原来的proc处理程序....
<强>示例强>
WNDPROC g_lpPrevWndProc = NULL;
HRESULT CWebEventHandler::ShowContextMenu(DWORD dwID, POINT *ppt, IUnknown *pcmdTarget, IDispatch *pdispObject)
{
if (false)
return S_FALSE; // Show standard context menus.
else
{
IOleWindow* pWnd = NULL;
HRESULT hr = pcmdTarget->QueryInterface(IID_IOleWindow,
(void**) &pWnd);
if (SUCCEEDED(hr))
{
HWND hwnd;
if (SUCCEEDED(pWnd->GetWindow(&hwnd)))
{
g_lpPrevWndProc = (WNDPROC)SetWindowLong(hwnd, GWL_WNDPROC, (LONG)CtxMenuWndProc);
if (g_hPubMenu)
{
DestroyMenu(g_hPubMenu);
g_hPubMenu = NULL;
}
g_hPubMenu = ::CreatePopupMenu();
::AppendMenu(g_hPubMenu, MF_STRING|MF_ENABLED , ID_HELLO, L"&Hello" );
::AppendMenu(g_hPubMenu, MF_STRING|MF_ENABLED , ID_WORLD, L"&World" );
long myRetVal = ::TrackPopupMenu(g_hPubMenu,
TPM_RIGHTBUTTON | TPM_LEFTALIGN | TPM_RETURNCMD,
ppt->x, ppt->y, NULL, hwnd, NULL);
SetWindowLong(hwnd, GWL_WNDPROC, (LONG)g_lpPrevWndProc);
// Send the command to the browser.
//
if (myRetVal == ID_HELLO)
{
box(_T("Hello"));
}else if(myRetVal == ID_WORLD)
{
box(_T("World"));
}else{
LRESULT myResult = ::SendMessage(hwnd, WM_COMMAND,myRetVal, NULL);
}
}
pWnd->Release();
}
}
return S_OK;
}
LRESULT CALLBACK CtxMenuWndProc(HWND hwnd, UINT uMsg, WPARAM wParam, LPARAM lParam)
{
if ((uMsg == WM_INITMENUPOPUP) && (wParam == (WPARAM) g_hPubMenu)) {
return 0;
}
return CallWindowProc(g_lpPrevWndProc, hwnd, uMsg, wParam, lParam);
}
答案 1 :(得分:0)
我确定你已经想到了这一点,但在第二个样本中,你正在做: :: SendMessage(hwnd,WM_COMMAND,myRetVal,NULL);
恢复后: SetWindowLong(hwnd,GWL_WNDPROC,(LONG)g_lpPrevWndProc);
你的回调永远不会在返回0上执行;但是,在这个特定的样本中也没有这样的情况。