源码下载地址: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:进度条上是否显示进度百分比