webbrowser 中一个比较麻烦的问题 ？？？

Question

本人刚用delphi不久，有个问题想问问大家，如下：用webbrowser打开网页的时候，我想得到 网页的 进展的速度，用个进度条来表示出来，就象IE中打开网页的那样，下面有进度条的。？那位帮帮我？

Answer 1

完全精确打开过程webbrowser控件好像不太好实现
倒是可以在OnDownloadComplete事件里面判断是否下载页面成功procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
begin
  if not WebBrowser1.Busy then
    ShowMessage('下载完毕');
end;对于每次连接(不论是鼠标点击还是用Navigate2方法连接),TWebBrowser的流程是这样的:OnBeforeNavigate2         --开始链接时会触发此事件
OnNavigateComplete2       --成功的链接到此网页(以后才会有下面的事件)
OnDownloadBegin           --开始下载
OnDownloadComplete        --下载结束
OnDocumentComplete        --页面下载完毕

Answer 2

procedure TIEForm.WebBrowserProgressChange(Sender: TObject; Progress,
  ProgressMax: Integer);
begin
  ProgressBar.Max := ProgressMax;
  ProgressBar.Position := Progress;
end;WebBrowser1 有相应的事件吗 hehe^^

Answer 3

hehe^^ 白给分的问题，对了把分给我的马甲w95927w(D版第一铁公鸡)，我去穿马甲UP哈~~