Delphi处理TWebBrowser的Close事件

标签：

当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;

Delphi处理TWebBrowser的Close事件

标签：

原文地址：http://www.cnblogs.com/stroll/p/4716286.html