与大家分享一个Delphi 7自定义单元，完成自定义消息和自定义进度条的显示，效果可参见截图所示。在源代码中，showmessage是弹出消息提示窗口，showprogress是显示进度条，为了更好的看到效果，本示例显示进度条正在运行的状态，进度条和弹出消息框，作者：周劲羽 　　该单元提供以下几个过程用于显示动态提示窗体： 　　ShowProgress - 显示进度条窗体 　　HideProgress - 隐藏进度条窗体 　　UpdateProgress - 更新当前进度 　　UpdateProgressTitle - 更新窗体标题 　　使用方法：在需要显示提示窗口的单元中uses本