上一篇:TListView按指定列排序
下一篇:Delphi检查GetElementByID返回值的有效性

Delphi处理TWebBrowser的Close事件

发布于: 2013-1-11 20:52:20   |  发布在: Delphi文章   |  点击:

当TWebBrowser控件访问的 Web 页上的脚本调用window.close方法时,TWebBrowser控件可能会在窗体中消失。我们的程序应该对此作出反应,否则再次访问TWebBrowser控件将引发异常。当TWebBrowser控件销毁前会向其父窗口(即我们的程序窗体)发送WM_PARENTNOTIFY消息,消息的wParam参数的低字部分为:WM_DESTROYlParam参数为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;

TWebBrowser事件图片消息窗口网页