程式師世界 >> 編程語言 >> 更多編程語言 >> Delphi >> (delphi)程序運行過程中等待對話框的自定義組件源碼(包含兩個提

(delphi)程序運行過程中等待對話框的自定義組件源碼(包含兩個提

編輯：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  :進度條上是否顯示進度百分比
　