procedure TForm1.IdFTP1WorkBegin(Sender: TObject; AWorkMode: TWorkMode;
const AWorkCountMax: Integer);
begin
label1.Caption:=string(AWorkCountMax);
ProgressBar1.Position:=13;
ProgressBar1.Max:=AWorkCountMax;
end;
不知道为什么AWorkCountMax总是为0
const AWorkCountMax: Integer);
begin
label1.Caption:=string(AWorkCountMax);
ProgressBar1.Position:=13;
ProgressBar1.Max:=AWorkCountMax;
end;
不知道为什么AWorkCountMax总是为0
用.Size方法获得!