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;