＋设为首页 ＋添加到收藏夹
//----------------------------------------------
//_____________________________ 【程序编程相关:我的一点发现: DBGridEh自带的实】
原理好简单,就是拦截右键的弹出消息. 【推荐阅读:Borland Delphi 2005 】
在tform1.formcreate事件运行一个测试的网页. 【扩展信息:用Delphi制作以浏览器为界面的应用程】
先创建一个twebbrowser,命名为webbrowser1
procedure tform1.formcreate(sender: tobject);
beginwebbrowser1.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 ... 下一页