方法1：procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;
const pDisp: IDispatch;
var URL: OleVariant);
beginif WebBrowser1.Application = pDisp then showmessage('页面已全部下载完毕')end;
说明一下,每个iframe下载完毕都会触发DocumentComplete事件,所以一个页面在真正下载完毕前可能被触发多次
方法2：procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;
const pDisp: IDispatch;
var URL: OleVariant);
var
CurWebrowser: IWebBrowser;
TopWebBrowser: IWebBrowser;
Document: OleVariant;
WindowName: string;
begin
CurWebrowser := pDisp as IWebBrowser;
TopWebBrowser := (Sender as TWebBrowser).DefaultInterface;
if CurWebrowser = TopWebBrowser then
ShowMessage('Complete document was loaded')
else
begin
Document := CurWebrowser.Document;
WindowName := Document.ParentWindow.Name;
ShowMessage(Format('Frame "%s" was loaded', [WindowName]));
end;
end;
方法3：
var isok::boolean
procedure TForm1.wbProgressChange(Sender: TObject;
Progress,
ProgressMax: Integer);
begin
if progress=-1 then isok:=true;
end;
【WebBrowser判断页面是否下载结束】总结：三个方法都可能对，也都可能不对，特别是现在还有AJAX的存在，我的想法是把每一种方法都试一下，自己看一下变量变化，相应的调整方法，得到满意的结果，偶个人建议使用第三种，简单明了而且实用。针对AJAX可以通过获取的HTML来判断，因为它是不刷新页面的，所以不用担心取不到HTML，同时它虽然没刷新页面，但它肯定会刷新数据，如果新新数据出现了，那么页也就加载完成了，当然具体问题具体分析。
