本文整理自网络，侵删。
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;
参考文档：http://hi.baidu.com/myvbziliao/blog/item/127c181f756acef0e0fe0bb8.html
相关阅读 >>
Delphi xe5在zip文件中添加某个txt文件并写入文字
Delphi idhttp post 支持 gzip 解压缩
更多相关阅读请进入《Delphi》频道 >>
