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事件相关推荐

delphi frame 添加 create onshow 事件
delphi frame 添加 create onshow 事件 https://www.cnblogs.com/Gufan/archive/2011/09/06/2538932.html proc ...
给 TWebBrowser.Document 定义事件
(该代码来自国外网站, 给 "神奇的科比" 参考) 代码: unit Unit1;interfaceusesWindows, Messages, SysUtils, Variant ...
Delphi中ActionList组件, Action 事件的自由调用方法
首先添加一个Actionlist 控件,双击控件添加事件,之后添加代码 procedure TMainForm.AutoIE_AddKeyWordsExecute(Sender: TObject); ...
Delphi中TWebBrowser中注入Js
最近帮朋友做一个软件,其中要自动化某网页中的操作,最简的操作是调用自己写的代码. 代码如下: procedure TForm1.Button2Click(Sender: TObject); var ...
在Delphi程序中应用IE浏览器控件
---- 大概大家还记得Delphi的范例程序中的那个浏览器的例子吧.在那个例子中,利用控件THttp的属性和方法制作了一个浏览器.该例子用于理解THttp控件的使用方法,确实不错.但很少有人会用它作 ...
TWebBrowser的常见属性和方法
GoBack:方法,后退到上一个页面. GoForward:方法,前进到下一个页面. GoHome:方法,调用默认的主页页面,该页面在IE的选项中设定. GoSearch:方法,调用默认的搜索页面,该 ...
Delphi访问网页中的下拉菜单
Delphi通过TWebBrowser浏览网页,然后访问该网页中的下拉菜单: uses MsHtml; procedure TForm1.Button1Click(Sender: TObject); ...
Delphi与Ole,Word,Excel,查找与替换等
Delphi与Word之间的融合技术(下)zt 来自:yzhshi, 时间:2002-2-2 14:24:00, ID:902680 前面我就Delphi中调用Word写了一些,比较注重于具体实现,对 ...
Delphi的笔记整理(一）
这几天清理资料,把以前学Delphi时的笔记翻出来了.大概是2005年时的吧,有些资料都没有什么价值了.以后再整理吧. Delphi Note 1.触发器的使用. 源数据库: 名称:info 字段:i ...

Delphi处理TWebBrowser的Close事件

Delphi处理TWebBrowser的Close事件相关推荐

最新文章

热门文章