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; // 被禁用的窗体列表指针 　　详细的单元使用方法，请下载查看源码中的代码文件。