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