Delphi处理TWebBrowser的Close事件
2013-12-10 13:13
323 查看
当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;
在窗体的定义添加申明:
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;
相关文章推荐
- Delphi_捕获TWebBrowser的Close事件
- Delphi中Twebbrowser的document 对象的属性、方法、事件一览(转)
- delphi中窗体关闭事件FormCloseQuery与assigned函数的使用
- 通过消息拦截达到在Delphi控件中屏蔽原有事件处理的一种方法
- [转载] Delphi 7事件的多处理机制
- Delphi 7事件的多处理机制
- 拖放文件到delphi中的事件处理
- Delphi 7中处理TEdit鼠标进入 离开事件
- Delphi处理事件函数中的Sender: TObject代表什么?
- delphi中form创建及销毁事件的处理顺序
- delphi中窗体关闭事件FormCloseQuery与assigned函数的使用
- Delphi 给窗体上面所有的控件都挂上一个事件处理过程华软源码
- Delphi 7事件的多处理机制
- delphi的属性property和消息处理特点事件属性。
- delphi如何在form显示出来后处理指定的事件(例如自动登录)
- Delphi 给窗体上面所有的控件都挂上一个事件处理过程华软源码
- delphi自定义事件处理
- Delphi 按钮共享事件处理方法
- delphi自定义事件处理 TNotifyEvent
- Delphi 7事件的多处理机制