在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运行,哈哈!

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

)