源碼下載地址：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:進度條上是否顯示進度百分比