delphi源码WebBrowser多次执行DocumentComplete

本文整理自网络，侵删。

 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 xe10 针对全面屏手机端无法全面显示，下方显示黑条的处理

Delphi 获取指定进程中的～内存数据

Delphi用命令行加载驱动

Delphi操作usb摄像头类

Delphi 能否把.txt文件的数据导入到access数据库中

Delphi 获取任意月份总共有多少天数

Delphi操作excel说明

Delphi 常用api 函数

Delphi xe6 firemonkey移动应用程序获取android设备屏幕信息

Delphi 获取百度注册页面验证码图片的源代码

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

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