怎么样去掉TWebBrowser控件中自带的右键菜单啊，帮帮忙啊，！

Question

怎么样自定义TWebBrowser控件的右键弹出菜单啊，急

Answer 1

TWebBrowser控件不行，需要用扩展的 WebBrowser 控件，到http://www.euromind.com/iedelphi/embeddedwb.htm 下，这个控件包含一个OnShowContextMenu 事件来处理右键菜单的弹出。

Answer 2

加一个 ApplicationEvents1 构件procedure Tfrmsplash.ApplicationEvents1Message(var Msg: tagMSG;
  var Handled: Boolean);
begin
 if (Msg.message = WM_RBUTTONDOWN) and (msg.hwnd =WebBrowser1.handle) then
 begin
   popupmenu1.Popup(Mouse.CursorPos.X, Mouse.CursorPos.Y);//这里自定义
   Handled := True;
 end;end;

Answer 3

procedure TForm1.WebBrowser1NewWindow2(Sender: TObject;
  var ppDisp: IDispatch; var Cancel: WordBool);
begin
    cancel:=true;
end;

Answer 4

suny_2001(小鱼儿) 的方法是可以的，如果实在不行请将
if (Msg.message = WM_RBUTTONDOWN) and (msg.hwnd =WebBrowser1.handle) then
改成
if (Msg.message = WM_RBUTTONDOWN) 还有要防止鼠标右键双击，必须要加自己的弹出菜单我在win2000(sp2)下使用的delphi6.0企业d版(未加补丁）情况是这样

Answer 5

我的网站上有实现的方法，程序较大，贴出来不方便，自己去看吧欢迎访问我的个人技术站点 
http://dever.6to23.com