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


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


)