PRocedure TfrmIE2.WebDocumentComplete(Sender: TObject; pDisp: IDispatch; var URL: OleVariant); 看见了吧,是OnDocumentComplete事件触发的下载完毕,还会告诉你是那个URL被下载完毕了,非常好用哦.因为页面中如果有IFrame,那么每个IFrame会触发一个DocumentComplete事件.
那我们怎么判断是否全部下载完毕呢?嘿嘿,TWebBrowser控件不是有一个Busy属性的吗?
procedure TfrmIE2.WebDocumentComplete(Sender: TObject; pDisp: IDispatch; var URL: OleVariant); begin if not(Web.Busy) then begin ShowMessage('下载完毕'); end; end; 对于每次连接(不论是鼠标点击还是用Navigate2方法连接),TWebBrowser的流程是这样的: