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 判断端口是否被使用

Delphi android 安卓中保持屏幕常亮

Delphi richedit根据鼠标位置定位光标的方法

Delphi xml解析、使用treeview呈现效果

Delphi中ado异步执行方式

Delphi 控制台应用程序 hello world

webbrowser点击没有id和name的按钮或链接

Delphi 进制转换之10进制与34进制互转

Delphi 获取本机 hostname ip address

Delphi 设置开机自动启动函数

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

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