Question

delphi中WebBrowser1打开网页

在Label1中用1到100显示进度

Answer 1

这类问题百度上有的,一搜索可多呢.
下边参考着自己把进度的值写入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;