【 tulaoshi.com - 编程语言 】
                             
                            若不能下载请查看: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  :进度条上是否显示进度百分比