Delphi下WebBrowser控件网页加载时实现进度显示

网速较慢或者网页内容较多时，经常加载好半天，在Delphi下用Webbrowser  给人的感觉一片空白。所以需要用进度条来表示以下加载进度，用Delphi中的progressBar实现起来就很简单。

在webBrowser的ProgressChange事件中设置进度条显示即可，代码如下

procedure TFormMain.wb1ProgressChange(ASender: TObject; Progress,
  ProgressMax: Integer);
begin
  pb1.Visible:= True;
  if(( Progress > 0) and (ProgressMax > 0)) then
  begin
    pb1.Max:= ProgressMax;
    pb1.Position:= Progress;
  end
  else if (wb1.ReadyState = READYSTATE_COMPLETE) then  //web page loading finished
  begin
    pb1.Position:= 0;
    pb1.Visible:= False;
  end;

end;

效果如下图：