X
xiehaiyi
Unregistered / Unconfirmed
GUEST, unregistred user!
在form1上放一个webbrowser1和progressbar
在webbrowser1的onprogresschange事件中：
procedure TForm1.WebBrowser1ProgressChange(Sender: TObject; Progress,
ProgressMax: Integer);
var
d:real;
begin
d:=(progress*1.0)/progressmax;
d:=progressbar1.Max *d;
progressbar1.Position :=round(d);
end;
运行载入网页后出错
请教解决方法。
在webbrowser1的onprogresschange事件中：
procedure TForm1.WebBrowser1ProgressChange(Sender: TObject; Progress,
ProgressMax: Integer);
var
d:real;
begin
d:=(progress*1.0)/progressmax;
d:=progressbar1.Max *d;
progressbar1.Position :=round(d);
end;
运行载入网页后出错
请教解决方法。