本文整理自网络,侵删。
在它的workbegin work事件中写代码
procedure TfrmDownLoad.IdHTTP1WorkBegin(Sender: TObject;
AWorkMode: TWorkMode; const AWorkCountMax: Integer);
begin
ProgressBar1.Max := AWorkCountMax ;
end;
procedure TfrmDownLoad.IdHTTP1Work(Sender: TObject; AWorkMode: TWorkMode;
const AWorkCount: Integer);
begin
ProgressBar1.Position := AWorkCount ;
end;
相关阅读 >>
Delphi中exit,abort,break,continue,halt,runerro 的区别
Delphi winapi: findwindow、findwindowex - 查找窗口
Delphi程序在win7 win8 win10下自动请求以管理员身份运行
更多相关阅读请进入《Delphi》频道 >>