Alamat Unduh Kode Sumber: http://www.csdn.net/cnshare/soft/openfile.asp?kind=1&id=21608
Jika Anda tidak dapat mengunduh, silakan periksa: http://blog.csdn.net/luckyjan/archive/2003/06/25/13071.aspx
Kode sumber untuk dialog menunggu untuk pemrograman Delphi
Ini terutama digunakan untuk menampilkan kotak dialog menunggu selama program berjalan, yang berisi AVI (Tanimate), dua pesan cepat (mis. Tlabel), dan bilah progres (TGAuge);
Metode utama:
Formshow: Tampilkan kotak dialog menunggu
Formhide: Tutup kotak dialog tunggu
ProgressStepit: Tunggu posisi bilah progres di kotak dialog untuk meningkatkan langkah
Atribut utama:
Nama: Menunggu Nama Kotak Dialog
Keterangan: Tunggu judul dialog Caption
Pesan1: Menunggu pesan cepat dari kotak dialog 1
Pesan2: Menunggu pesan cepat dari kotak dialog 2
WordWrap: Message1 dan Message2 ditampilkan di baris, apakah secara otomatis akan dikonversi?
Message1Font, Message2Font: Message1, Message2 Fonts
Aviacitive: Tunggu apakah tindakan AVI dieksekusi dalam kotak dialog
ProgressMax: Nilai maksimum bilah kemajuan
ProgressMin: Nilai minimum bilah kemajuan
ProgressPos: Lokasi saat ini dari bilah kemajuan
ProgressStep: Bilah kemajuan dalam metode progressStepit meningkatkan jumlah langkah
Dialogstyle (= dlGnormal, dlgstayontop): Apakah selalu di depan saat menunggu kotak dialog ditampilkan
Aviposisi (= Avibottom, Avitop, Avileft): Lokasi AVI
[Opsi]:
ShowMessage1: apakah akan menampilkan pesan prompt 1
Showmessage2: apakah akan menampilkan pesan prompt 2
Showavi: apakah akan menampilkan avi
ShowCaption: Apakah akan menampilkan keterangan dialog menunggu
ShowProgress: apakah akan menampilkan bilah kemajuan
ShowprogressText: apakah persentase kemajuan ditampilkan di bilah kemajuan