Цитата:
|
Сообщение от @Rafa3L
Код:
procedure HTTP2Work(ASender: TObject; AWorkMode: TWorkMode;
AWorkCount: Int64);
begin
ProgressBar.Position:= AWorkCount;
end;
procedure HTTP2WorkBegin(ASender: TObject; AWorkMode: TWorkMode;
AWorkCountMax: Int64);
begin
ProgressBar.Position:= 0;
ProgressBar.Max:= AWorkcountMax;
end; |
Спасибо, но как бы в своем коде я это использую. Но нет результата ....
Извиняюсь, но этого просто нет в листинге 1 поста, не стал копировать.