delphi中WebBrowser1打开网页 进度 用数字显示 1-100
delphi中WebBrowser1打开网页 进度 用数字显示 1-100
日期：2010-06-29 13:56:50 人气：1
Label对动态文本支持不好，用StaticText。
多Frame的页面显示会异常，就和IE一样，明明进度条已经到头了，但是网页却还不显示出来。
procedure TForm1.WebBrowser1ProgressChange(Sender: TObject; Progress,
ProgressMax: Integer);
var i:integer;
begin
if ProgressMax0 then
begin
i:=Progress*100 div Pr