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

源代码网整理以下//----------------------------------------------

源代码网整理以下原理好简单,就是拦截右键的弹出消息.

源代码网整理以下//_____________________________

源代码网整理以下先创建一个TWebBrowser,命名为"Webbrowser1"

源代码网整理以下在TForm1.FormCreate事件运行一个测试的网页.

源代码网整理以下procedure TForm1.FormCreate(Sender: TObject);
begin

源代码网整理以下WebBrowser1.Navigate("http://blog.csdn.net/laoli/") ;

源代码网整理以下end;

源代码网整理以下//----------------------------------------------------------------

软件开发网 www.mscto.com

源代码网整理以下再创建一个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运行,哈哈!

源代码网整理以下

源代码网整理以下

源代码网整理以下------------------------------------->转载请注名出处和作者,尊重别人,也就是尊重自己.....................

源代码网整理以下

源代码网整理以下

源代码网整理以下

源代码网整理以下

源代码网整理以下

源代码网整理以下

源代码网整理以下

源代码网整理以下

源代码网整理以下

源代码网整理以下

源代码网整理以下)