Question

delphi WebBrowser1打开网页显示进度条

我用了个WebBrowser控见和一个ProgressBar控件 我想打开网页时候进度用ProgressBar显示出来 怎么实现

Answer 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:=0;
end;