(delphi)程序运行过程中等待对话框的自定义组件源码(包含两个提示,进度条,AVI)

核心提示：源码下载地址：http://www.csdn.net/cnshare/soft/openfile.asp?kind=1&id=21608若不能下载请查看：http://blog.csdn.net/luckyjan/archive/2003/06/25/13071.aspx一个用于Delphi程序设计的等待对话框的源码主

源码下载地址：http://www.csdn.net/cnshare/soft/openfile.asp?kind=1&id=21608

若不能下载请查看：http://blog.csdn.net/luckyjan/archive/2003/06/25/13071.aspx

一个用于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　:进度条上是否显示进度百分比