在TWebBrowser 屏蔽右键的弹出菜单.弹出自己的菜单！

//----------------------------------------------

原理好简单,就是拦截右键的弹出消息.

//_____________________________

先创建一个TWebBrowser,命名为'Webbrowser1'

在TForm1.FormCreate事件运行一个测试的网页.

procedure TForm1.FormCreate(Sender: TObject);
begin

WebBrowser1.Navigate('http://blog.csdn.net/laoli/')  ;

end;

//----------------------------------------------------------------

再创建一个TApplicationEvents控件(别说你不知道在哪里*_*)

在控件的onMessage事件输入:

  if (Msg.Message = WM_RBUTTONDOWN) or (Msg.Message = WM_RBUTTONDBLCLK) then
  begin
    if IsChild(Webbrowser1.Handle, Msg.hwnd) then  

 //这里的Webbrowser1必须对应你的TWebbrowser命名,
//否则不行别骂我
    begin
      //这里可以输入你自己的东西,例如弹出你自己的右键菜单,我这里是弹出信息框!

     ShowMessage('哈哈，你想干什么？？？');
     Handled := True; //屏蔽这句,右键菜单就可以弹出
    end;
  end;

//------------------------------------------------------------------------------------------------------

检查一下是否有其他语法问题,

再按F9运行,哈哈!

------------------------------------->转载请注名出处和作者,尊重别人,也就是尊重自己.....................

)