怎样屏蔽TWebBrowser中原来的右键菜单

[greenland]

我在做软件的时候用到TWebBrowser控件，请问各位大虾怎样覆盖掉该控件中原来的右键菜单

[yuqiong]

popup menu 指定自己的就可以。

[laishoulin]

如果popup menu指定不行，那么还有一个办法，自定义一个web browser控件，继承自TwebBrowser;不过自定义它的popup按钮！

[9igogo]

原有的右建有菜单吗？

[9igogo]

偶的popup menu 是空的阿

[greenland]

popup menu 那不行，我试过了~~~

[blucecat]

http://www.csdn.net/expert/topic/867/867278.xml?temp=.6692926

[lfpsoft]

可以下载以下程序看效果：
http://www.lkgarden.com/lfpsoft/MyMenu.zip

以下为代码
1.加入一个ApplicationEvents，在OnMessage事件中加入以下代码：
procedure TfrmMain.ApplicationEvents1Message(var Msg: tagMSG;
var Handled: Boolean);
begin
if IsChild(WebBrowser1.Handle, Msg.Hwnd) and
((Msg.Message = WM_RBUTTONDOWN) or (Msg.Message = WM_RBUTTONUP)) then
begin
// dxBarPopupMenu.PopupFromCursorPos ;//在这里做你想做的事，比如显示你的菜单
Handled:=True;
end;
end;