Delphi ShowProgress自定义的进度条和消息提示窗口单元.rar
与大家分享一个Delphi 7自定义单元，完成自定义消息和自定义进度条的显示，效果可参见截图所示。在源代码中，showmessage是弹出消息提示窗口，showprogress是显示进度条，为了更好的看到效果，本示例显示进度条正在运行的状态，进度条和弹出消息框，作者：周劲羽
该单元提供以下几个过程用于显示动态提示窗体：
ShowProgress - 显示进度条窗体
HideProgress - 隐藏进度条窗体
UpdateProgress - 更新当前进度
UpdateProgressTitle - 更新窗体标题
使用方法：在需要显示提示窗口的单元中uses本单元，当需要显示提示信息时直接调用ShowXXXX过程即可。
注意事项：同一时间屏幕上只能显示一个进度窗体，窗体显示时其它所有窗体均不能使用，但显示该窗体的代码仍可以继续运行。
来看一下参数如何定义：
procedure ShowProgress(const Title: string; AMax: Integer = 100; vIsShowProgress: Boolean = false);
{* 显示进度条窗体，参数为窗体标题以及最大值，默认 100（百分比形式），可自定义成其他值}
procedure HideProgress;
{* 关闭进度条窗体}
procedure UpdateProgress(Value: Integer);
{* 更新当前进度，参数为进度值：当 Max 为 100 时可接受范围为 0..100，此时 Value 代表百分比}
procedure UpdateProgressTitle(const Title: string);
{* 更新进度条窗体标题，参数为标题}
procedure UpdateProgressMax(Value: Integer);
{* 更新进度条最大值，参数为新的最大值}
implementation
{$R *.DFM}
var
ProgressForm: TProgressForm = nil; // 进度条窗体实例
FormList: Pointer; // 被禁用的窗体列表指针
详细的单元使用方法，请下载查看源码中的代码文件。
该单元提供以下几个过程用于显示动态提示窗体：
ShowProgress - 显示进度条窗体
HideProgress - 隐藏进度条窗体
UpdateProgress - 更新当前进度
UpdateProgressTitle - 更新窗体标题
使用方法：在需要显示提示窗口的单元中uses本单元，当需要显示提示信息时直接调用ShowXXXX过程即可。
注意事项：同一时间屏幕上只能显示一个进度窗体，窗体显示时其它所有窗体均不能使用，但显示该窗体的代码仍可以继续运行。
来看一下参数如何定义：
procedure ShowProgress(const Title: string; AMax: Integer = 100; vIsShowProgress: Boolean = false);
{* 显示进度条窗体，参数为窗体标题以及最大值，默认 100（百分比形式），可自定义成其他值}
procedure HideProgress;
{* 关闭进度条窗体}
procedure UpdateProgress(Value: Integer);
{* 更新当前进度，参数为进度值：当 Max 为 100 时可接受范围为 0..100，此时 Value 代表百分比}
procedure UpdateProgressTitle(const Title: string);
{* 更新进度条窗体标题，参数为标题}
procedure UpdateProgressMax(Value: Integer);
{* 更新进度条最大值，参数为新的最大值}
implementation
{$R *.DFM}
var
ProgressForm: TProgressForm = nil; // 进度条窗体实例
FormList: Pointer; // 被禁用的窗体列表指针
详细的单元使用方法，请下载查看源码中的代码文件。
文件下载
资源详情
[{"title":"（ 10 个子文件 31KB ） Delphi ShowProgress自定义的进度条和消息提示窗口单元.rar","children":[{"title":"codesc.net","children":[{"title":"showform","children":[{"title":"Unit1.dfm <span style='color:#111;'> 674B </span>","children":null,"spread":false},{"title":"Unit1.pas <span style='color:#111;'> 807B </span>","children":null,"spread":false},{"title":"Project2.~dpr <span style='color:#111;'> 188B </span>","children":null,"spread":false},{"title":"Unit1.dcu <span style='color:#111;'> 4.01KB </span>","children":null,"spread":false},{"title":"MarProgressFrm.dfm <span style='color:#111;'> 45.87KB </span>","children":null,"spread":false},{"title":"Project2.dof <span style='color:#111;'> 2.40KB </span>","children":null,"spread":false},{"title":"Project2.res <span style='color:#111;'> 876B </span>","children":null,"spread":false},{"title":"Project2.cfg <span style='color:#111;'> 446B </span>","children":null,"spread":false},{"title":"Project2.dpr <span style='color:#111;'> 307B </span>","children":null,"spread":false},{"title":"MarProgressFrm.pas <span style='color:#111;'> 6.63KB </span>","children":null,"spread":false}],"spread":true}],"spread":true}],"spread":true}]
评论信息
其他资源
- 数据结构与算法课程设计
- GpsServer TCP工具类 支持JT808协议
- 浮点混合基fft程序
- 基于FPGA的数字频率计（ISE工程）
- LDPC的matlab 仿真 BP算法 BPSK调制
- 如何用spss求回归模型中的AIC和BIC
- MFC计算器（利用栈实现）
- 操作系统复习资料（张尧学版）
- MT4 手工画线报警指标
- 赚钱宝Pro root+NAS.zip
- (NEW)小狗钱钱.epub
- XinjianOUYANG.github.io-源码
- 蓝色商务风年中总结PPT模板.pptx
- NOIP2011提高组初赛试题答案C++.doc
- 对 大数据，云计算 的解释_简单通俗易懂.zip
- cvavr 2.050破解版
- JTT 794-2011 道路运输车辆卫星定位系统车载终端技术要求
- miglayout15-swing
- 设备环境监控大屏html文件
- 微信JSSDK接口调用 分享到朋友圈实例
免责申明
【只为小站】的资源来自网友分享，仅供学习研究，请务必在下载后24小时内给予删除，不得用于其他任何用途，否则后果自负。基于互联网的特殊性，【只为小站】 无法对用户传输的作品、信息、内容的权属或合法性、合规性、真实性、科学性、完整权、有效性等进行实质审查；无论 【只为小站】 经营者是否已进行审查，用户均应自行承担因其传输的作品、信息、内容而可能或已经产生的侵权或权属纠纷等法律责任。
本站所有资源不代表本站的观点或立场，基于网友分享，根据中国法律《信息网络传播权保护条例》第二十二条之规定，若资源存在侵权或相关问题请联系本站客服人员，zhiweidada#qq.com，请把#换成@，本站将给予最大的支持与配合，做到及时反馈和处理。关于更多版权及免责申明参见 版权及免责申明
本站所有资源不代表本站的观点或立场，基于网友分享，根据中国法律《信息网络传播权保护条例》第二十二条之规定，若资源存在侵权或相关问题请联系本站客服人员，zhiweidada#qq.com，请把#换成@，本站将给予最大的支持与配合，做到及时反馈和处理。关于更多版权及免责申明参见 版权及免责申明