这类问题百度上有的,一搜索可多呢.
下边参考着自己把进度的值写入label就可以了
procedure TForm1.WebBrowser1ProgressChange(Sender: TObject; Progress,
ProgressMax: Integer);
begin
if ProgressMax=0 then exit;
ProgressBar1.Min:=0;
ProgressBar1.Max :=1 ;
ProgressBar1.Position:=Progress*100 div ProgressMax;
ProgressMax:=0;
end;
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024