Delphi处理TWebBrowser的Close事件
来源:互联网 发布:mac装windows 编辑:程序博客网 时间:2024/05/16 17:45
当TWebBrowser控件访问的 Web 页上的脚本调用window.close方法时,TWebBrowser控件可能会在窗体中消失。我们的程序应该对此作出反应,否则再次访问TWebBrowser控件将引发异常。当TWebBrowser控件销毁前会向其父窗口(即我们的程序窗体)发送WM_PARENTNOTIFY消息,消息的wParam参数的低字部分为:WM_DESTROY,lParam参数为TWebBrowser控件的窗口句柄。我们可以响应该消息处理TWebBrowser的Close事件,代码如下:
在窗体的定义添加申明:
procedure WBClose(var Msg:TMessage);message WM_PARENTNOTIFY;
在实现部分添加具体代码:
procedure TForm1.WBClose(var Msg: TMessage);
begin
if Msg.WParamLo = WM_DESTROY then //对象被销毁消息
if UInt(Msg.LParam) = WebBrowser1.Handle then //WebBrowser1被销毁
Close; //关闭窗体本身
end;
0 0
- Delphi处理TWebBrowser的Close事件
- Delphi_捕获TWebBrowser的Close事件
- Delphi TWebBrowser事件说明
- Delphi的TWebBrowser编程综述
- Delphi的TWebBrowser编程综述
- Delphi的TWebBrowser编程综述
- Delphi的TWebBrowser编程综述
- Delphi的TWebBrowser编程综述
- Delphi的TWebBrowser编程参考
- Delphi中TWebBrowser的用法
- Delphi TWebBrowser
- Delphi TWebBrowser
- ZT:Delphi的TWebBrowser编程综述
- Delphi 中TWebBrowser的扩展控件TExWebBrowser
- Delphi下TWebBrowser控件的使用
- Delphi 中TWebBrowser的扩展控件TExWebBrowser
- delphi TWebBrowser 用法
- Delphi TWebBrowser(1)
- DWZ HTML扩展
- TWebBrowser禁止弹出Alert对话框
- iOS中的下拉刷新SVPullToRefresh
- resin下webapps路径无法删除问题(自动恢复)
- 触发式电子邮件营销 掌握秘诀出奇制胜
- Delphi处理TWebBrowser的Close事件
- js数组的操作(转)
- 运动估计和运动补偿
- Delphi获取所有打开的IE窗口的网页源码
- fukan出错点总结
- SQL Server查詢可用磁盘空间
- 单链表的创建,遍历输出及释放
- Delphi通过IE窗口句柄获取网页接口(IWebBrowser2)
- linux 读取设备节点值