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

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

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

2024-11-27 09:15:38

推荐回答（1个）

回答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;

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

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