Question

delphi中WebBrowser1打开网页 进度 用数字显示 1-100

delphi中WebBrowser1打开网页 进度 用数字显示 1-100
在Label1中显示数字

Answer 1

Label对动态文本支持不好，用StaticText。
多Frame的页面显示会异常，就和IE一样，明明进度条已经到头了，但是网页却还不显示出来。
procedure TForm1.WebBrowser1ProgressChange(Sender: TObject; Progress,
ProgressMax: Integer);
var i:integer;
begin
if ProgressMax<>0 then
begin
i:=Progress*100 div ProgressMax;
StaticText1.Caption:='进度：'+InttoStr(i)+'%';
end else;
end;