本文整理自网络，侵删。
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 打开win8及以上操作系统的系统已安装程序目录
Delphi api 函数: getcursorpos 与转换
Delphi 从twebbrowser webbrowser得到全部html源码
Delphi 如何使用sendmessage发送后台组合键消息(ctrl+xxx)
Delphi 一组数据，按由大到小进行排序，并输出最大值与最小值
更多相关阅读请进入《Delphi》频道 >>
