如何禁止CppWebBrowser的右键弹出菜单

[ysh]

用CppWebBrowser做一个浏览器，打开页面后，右键会弹出如IE中的菜单，请问如何禁止其弹出。

[781014]

顶

[fansses]

up

[ysh]

怎么就没人理我呢？

[Lersh]

不可能禁止，除非你用script

[ysh]

一年前有我曾经问过这个问题，当时已经还实现了，但后来忘记了，原来的代码也找不着了。

[烟波三千里人鬼五百年]

HHOOK HMouseHook;
int __stdcall MouseProc(
int nCode, // hook code
WPARAM WP, // message identifier
LPARAM LP // mouse coordinates
)
{

MOUSEHOOKSTRUCT MHS;
TWinControl* WC;

int Result = CallNextHookEx((void*)HMouseHook,nCode,WP,LP);
if ( nCode==HC_ACTION)
{
MHS = *PMOUSEHOOKSTRUCT(LP);
if ((WP==WM_RBUTTONDOWN) || (WP==WM_RBUTTONUP))
{
WC=FindVCLWindow(MHS.pt);
TCppWebBrowser* Browser = dynamic_cast<TCppWebBrowser*>(WC);
if (Browser)
{
Result=1;

if (Browser->PopupMenu && (WP==WM_RBUTTONUP))
{
Browser->PopupMenu->PopupComponent = WC;
Browser->PopupMenu->Popup(MHS.pt.x,MHS.pt.y);
}
}
}
}
return Result;
}

//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
HMouseHook=SetWindowsHookEx(WH_MOUSE,(HOOKPROC)MouseProc,HInstance,GetCurrentThreadId());
}
//---------------------------------------------------------------------------
__fastcall TForm1::~TForm1()
{
UnhookWindowsHookEx(HMouseHook);
}
void __fastcall TForm1::Button1Click(TObject *Sender)
{
CppWebBrowser->Navigate(L"http://www.sina.com.cn");
}
//---------------------------------------------------------------------------

[jians]

增加一个TApplicationEvents控件在主窗体，在OnMessage事件响应函数中：
void __fastcall TMainFrm::ApplicationEvents1Message(tagMSG &Msg,
bool &Handled)
{
Handled = false;

if (IsChild(LeftBrowser->Handle,Msg.hwnd)
&& (Msg.message == WM_RBUTTONDOWN || Msg.message == WM_RBUTTONUP))
{
Handled = true;
}
}