Delphi进度条(多线程),美观不卡界面,简单开启,定位,结束:
包目录(MyProgress):
MyProgress.dcu //最终引用
MyProgressPackage.bpl //安装包
MyProgressPackage.bpi
MyProgressPackage.dcp
MyProgressPackage.lib
包安装(无需编译,直接安装):
将包目录(MyProgress)复制到目标安装目录
Delphi\菜单\Component\Install Packages\...选择包目录中的包文件
.\MyProgressPackage.bpl
添加路径:
Delphi\菜单\Tools\Options\Environment Options\Delphi Optioins\Library\Library path:
添加包目录
在工程中单元中引用:
uses
MyProgress
功能列表:
1.开启进度(标题,消息,透明度(0-255),是否同步任务栏,是否有边框)
procedure StartPro(aTitle,aMsg:String; AlphaValue:Integer=0; IsSyncTaskbar:Boolean=True; IsHasBorder:Boolean=True);//显示动画
2.给养进度(标题,,消息):保持或更新进度指示,不调用则保持StartPro时的状态
procedure FeedPro(aTitle:String; aMsg:String='正在处理中, 请等待...');
3.关闭进度
procedure ClosePro;
1