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}]
评论信息
其他资源
- fdc2214读电容值STM32
- 灰度图像的二维Otsu自动阈值分割法 matlab源程序
- 使用python实现人工智能算法
- 3D_DEM三维地形生成
- GRE argument 模板
- 用于FPGA的Verilog语言LED点阵
- OV2640 色块识别.rar
- 操作系统课程设计（含报告和源代码，可执行文件）
- 基于uml的酒店管理系统的分析和设计
- 微领通用考试题库软件制作工具,试卷生成器，题库答题器【全能免费版】.rar
- 2009-2021年408真题及答案.zip
- 编写一个JSP程序，计算整数的阶乘，并显示出结果。（已多次完善）
- opencv+MFC实现图像拼接
- C_Primer_Plus_6.16.18.c
- 2016年4月高等教育自学考试全国统一命题考试数据库及其应用试题及答案.docx
- powll优化设计鲍威尔法
- FTP客户端设计与实现
- C#认证原题
- java实现的highcharts与ajax结合动态实时获取数据更新图表
- jfinal-1.9-all.zip
- fortifysca详细介绍
- 使用remastersys自制Ubuntu镜像
- Mindmanager模板素材446个淘宝买的史上最全
- sqlmap汉化修正版
免责申明
【只为小站】的资源来自网友分享，仅供学习研究，请务必在下载后24小时内给予删除，不得用于其他任何用途，否则后果自负。基于互联网的特殊性，【只为小站】 无法对用户传输的作品、信息、内容的权属或合法性、合规性、真实性、科学性、完整权、有效性等进行实质审查；无论 【只为小站】 经营者是否已进行审查，用户均应自行承担因其传输的作品、信息、内容而可能或已经产生的侵权或权属纠纷等法律责任。
本站所有资源不代表本站的观点或立场，基于网友分享，根据中国法律《信息网络传播权保护条例》第二十二条之规定，若资源存在侵权或相关问题请联系本站客服人员，zhiweidada#qq.com，请把#换成@，本站将给予最大的支持与配合，做到及时反馈和处理。关于更多版权及免责申明参见 版权及免责申明
本站所有资源不代表本站的观点或立场，基于网友分享，根据中国法律《信息网络传播权保护条例》第二十二条之规定，若资源存在侵权或相关问题请联系本站客服人员，zhiweidada#qq.com，请把#换成@，本站将给予最大的支持与配合，做到及时反馈和处理。关于更多版权及免责申明参见 版权及免责申明