(delphi)程序運(yùn)行過程中等待對話框的自定義組件源碼(包含兩個提示,進(jìn)度條,AVI)

2019-11-18 18:11:56

字體：大中小

供稿：網(wǎng)友

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

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

一個用于Delphi程序設(shè)計的等待對話框的源碼
主要用于程序運(yùn)行過程中顯示一個等待對話框,其中包含一個AVI(TAnimate),兩個提示信息(即TLabel),一個進(jìn)度條(TGauge)；

主要方法：
    FormShow  :  顯示等待對話框
    FormHide  :  關(guān)閉等待對話框
    PRogressStepIt  :  等待對話框中進(jìn)度條位置自增一個Step

主要屬性：
    Name          :  等待對話框名稱
    Caption    :  等待對話框標(biāo)題Caption
    Message1  :  等待對話框的提示信息1
    Message2  :  等待對話框的提示信息2
    WordWrap  :  Message1,Message2一行顯示不完，是否自動轉(zhuǎn)行
    Message1Font  ,    Message2Font  :  Message1,Message2字體
    AVIAcitive      :  等待對話框中AVI動作是否執(zhí)行
    ProgressMax    :  進(jìn)度條最大值
    ProgressMin    :  進(jìn)度條最小值
    Progresspos    :  進(jìn)度條當(dāng)前位置
    ProgressStep  :  ProgressStepIt  方法中進(jìn)度條自增一個Step的量

    DialogStyle(=dlgNormal,  dlgStayOnTop):  等待對話框顯示時是否始終在最前面
    Aviposition(=aviBottom，aviTop，aviLeft)  :  AVI的位置
    [Options]:
        showMessage1          :是否顯示提示信息1
        showMessage2          :是否顯示提示信息2
        showAVI                    :是否顯示AVI
        showCaption            :是否顯示等待對話框Caption
        showProgress          :是否顯示進(jìn)度條
        ShowProgressText  :進(jìn)度條上是否顯示進(jìn)度百分比

上一篇：一些讓我受益匪淺的delphi資源站點(diǎn)

下一篇：Delphi數(shù)據(jù)庫的動態(tài)建立