Delphi_捕获TWebBrowser的Close事件

转载 2013年12月04日 23:51:54

Delphi使用TWebBrowser控件开发自己的浏览器,如果访问的网页有关闭窗口的JavaScript代码,那么TWebBrowser控件被注销,但应用程序本身并没有关闭,这似乎不是软件开发者乐意看到的。下面的示例介绍了一种捕获网页被关闭的消息的方法:

1. 首先在应用程序窗体上添加一个TApplicationEvents控件(在Additional页上)

2. 编写该控件的OnMessage事件响应代码

procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;
  var Handled: Boolean);
begin
  if Msg.message = WM_CLOSE then //判断是否关闭消息
  begin
    if WebBrowser1.Handle = Msg.hwnd then //验证消息是否WebBrowser发来的
      Form1.Close; //关闭窗体本身
    Handled := true;
  end;
end;

以上代码在Delphi7编译环境下测试通过。


原文来自:http://www.learnew.com/archives/146.htm

delphi TWebBrowser组件使用详解

delphi TWebBrowser组件使用详解       该组件是一个浏览器组件,可以显示一个指定地址的网页、设置网页打开时的主页以及对网页进行相关的操作,同时也可以对HTML文件进行剪切、复制...
  • bdemq
  • bdemq
  • 2011年10月28日 14:54
  • 782

Delphi TWebBrowser编程简述(转帖)

====================================================== 注:本文源代码点此下载 =============================...

delphi TWebBrowser 用法

WebBrowser1.GoHome; //到浏览器默认主页 WebBrowser1.Refresh; //刷新 WebBrowser1.GoBack; //后退 WebBrowser1.GoForw...

Delphi下TWebBrowser控件的使用

程序需要访问网页时,delphi一般可以两种方式实现。一种是通过Tidhttp,这种方式post数据需要通过网页抓包等方式,模拟网页的post提交。第二种是通过Twebbrowser控件访问,这种方式...

Delphi TWebBrowser(1)

1.WebBrowser 操作记要 WebBrowser1.GoHome;  //到浏览器默认主页                                 WebBrowser1.Ref...

Delphi 中TWebBrowser的扩展控件TExWebBrowser

参考: http://blog.csdn.net/missmecn/article/details/2292758 主要扩展了3D界面、右键菜单、是否显示图片、是否支持JAVA...

delphi twebbrowser小例子。

  • 2013年10月24日 16:13
  • 636KB
  • 下载

TWebBrowser 与 MSHTML(5): document 对象的属性、方法、事件纵览

{IHTMLDocument2 方法:} write //写入 writeln //写入并换行 open ...
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:Delphi_捕获TWebBrowser的Close事件
举报原因:
原因补充:

(最多只允许输入30个字)