delphi WebBrowser1打开网页显示进度条
delphi WebBrowser1打开网页显示进度条
日期：2010-05-08 07:00:38 人气：1
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: