(delphi)程序运行过程中等待对话框的自定义组件源码(包含两个提
2016-02-19 14:18
图老师设计创意栏目是一个分享最好最实用的教程的社区，我们拥有最用心的各种教程，今天就给大家分享(delphi)程序运行过程中等待对话框的自定义组件源码(包含两个提的教程，热爱PS的朋友们快点看过来吧！
一个用于Delphi程序设计的等待对话框的源码
主要用于程序运行过程中显示一个等待对话框,其中包含一个AVI(TAnimate),两个提示信息(即TLabel),一个进度条(TGauge)；
主要方法：
FormShow : 显示等待对话框
FormHide : 关闭等待对话框
ProgressStepIt : 等待对话框中进度条位置自增一个Step
主要属性：
Name : 等待对话框名称
Caption : 等待对话框标题Caption
Message1 : 等待对话框的提示信息1
Message2 : 等待对话框的提示信息2
wordWrap : Message1,Message2一行显示不完，是否自动转行
Message1Font , Message2Font : Message1,Message2字体
AVIAcitive : 等待对话框中AVI动作是否执行
ProgressMax : 进度条最大值
ProgressMin : 进度条最小值
Progresspos : 进度条当前位置
ProgressStep : ProgressStepIt 方法中进度条自增一个Step的量
DialogStyle(=dlgNormal, dlgStayOnTop): 等待对话框显示时是否始终在最前面
AviPosition(=aviBottom，aviTop，aviLeft) : AVI的位置
[Options]:
showMessage1 :是否显示提示信息1
showMessage2 :是否显示提示信息2
showAVI :是否显示AVI
showCaption :是否显示等待对话框Caption
showProgress :是否显示进度条
ShowProgressText :进度条上是否显示进度百分比
