关闭

Delphi_捕获TWebBrowser的Close事件

1264人阅读 评论(0) 收藏 举报
分类:

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

0
0

猜你在找
【直播】机器学习&数据挖掘7周实训--韦玮
【套餐】系统集成项目管理工程师顺利通关--徐朋
【直播】3小时掌握Docker最佳实战-徐西宁
【套餐】机器学习系列套餐(算法+实战)--唐宇迪
【直播】计算机视觉原理及实战--屈教授
【套餐】微信订阅号+服务号Java版 v2.0--翟东平
【直播】机器学习之矩阵--黄博士
【套餐】微信订阅号+服务号Java版 v2.0--翟东平
【直播】机器学习之凸优化--马博士
【套餐】Javascript 设计模式实战--曾亮
查看评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场
    个人资料
    • 访问:558240次
    • 积分:7376
    • 等级:
    • 排名:第2945名
    • 原创:144篇
    • 转载:174篇
    • 译文:1篇
    • 评论:55条
    文章分类
    最新评论