delphi 使用进度条查看浏览器状态

使用进度条查看浏览器状态

 

 

procedure TForm1.WebBrowser1ProgressChange(ASender: TObject; Progress,
  ProgressMax: Integer);
begin
  ProgressBar1.Max :=ProgressMax;
   if Progress = - 1 then
      //ProgressBar1.Visible:=false
   else
   begin
    ProgressBar1.Position := Progress;
    ProgressBar1.Visible := True;
   end;
   if  ProgressBar1.Position = ProgressMax then
     //ProgressBar1.Visible:=False;
end;

来自为知笔记(Wiz)