//----------------------------------------------
原理好简单,就是拦截右键的弹出消息.
//_____________________________
先创建一个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运行,哈哈!
------------------------------------->转载请注名出处和作者,尊重别人,也就是尊重自己.....................
)