Delphi WebBrowser多次执行DocumentComplete

本文整理自网络，侵删。

 我们在使用WebBrowser的事件DocumentComplete，会发现如果网页中包含多个frame时，就会执行多次DocumentComplete事件。

在网上查阅了很多资料，解决办法不一，现在提供一种最简易的办法。

procedure TForm1.wb1DocumentComplete(Sender: TObject; const pDisp: IDispatch; var URL: OleVariant);中有个pDisp参数。利用这个参数可以很好的实现网页的完全加载事件。

代码如下：

procedure TForm1.wb1DocumentComplete(Sender: TObject; const pDisp: IDispatch; var URL: OleVariant);
begin
if pDisp = wb1.Application then
begin
ShowMessage('网页加载完毕！');
end;
end; 

相关阅读 >>

Delphi 操作webbrowser 元素值

Delphi使用tclientdataset时不携带midas.dll的方法

Delphi实现音频传输

Delphi xe5如何像手机qq一样最小化后显示图标

Delphi firedac 下的 sqlite [11] - 关于批量提交 sql 命令的测试

Delphi串口通信编程

Delphi memo中禁止汉字

Delphi tstringlist 文本文件拼接

Delphi 上传文件到七牛，纯原生

Delphi三种弹窗

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi WebBrowser多次执行DocumentComplete