Vclzip控件显示压缩进度

本文整理自网络，侵删。

  progressbar1.Max:=myzip.ZipSize; 


procedure TForm1.myzipFilePercentDone(Sender: TObject; Percent: Integer); 
begin 

progressbar1.Position:=percent; 
end; 

procedure TForm1.myzipTotalPercentDone(Sender: TObject; Percent: Integer); 
begin 
progressbar2.Position:=percent; 
end; 

 

相关阅读 >>

Delphi post登陆Delphi盒子论坛源码

Delphi 不管什么日期格式转换都不会错了

Delphi firemonkey app 如何获得当前系统语言设置

Delphi可执行程序参数

Delphi之完美splash方案

Delphi硬盘序列号修改器源码

Delphi rgbtohsb

Delphi 获取动态创建的image与scrollbox的相对位置

Delphi firemonkey里触发home按键被按下的事件

Delphi sql语句查询最新的各个台位的最后一个检测值

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Vclzip控件显示压缩进度