Adresse de téléchargement du code source: http://www.csdn.net/cnshare/soft/openfile.asp?kind=1&id=21608
Si vous ne pouvez pas télécharger, veuillez vérifier: http://blog.csdn.net/luckyjan/archive/2003/06/25/13071.aspx
Code source pour une boîte de dialogue d'attente pour la programmation Delphi
Il est principalement utilisé pour afficher une boîte de dialogue d'attente pendant le cours du programme, qui contient une AVI (Tanate), deux messages rapides (c'est-à-dire Tlabel) et une barre de progression (tgauge);
Méthodes principales:
Formshow: afficher la boîte de dialogue d'attente
FormHide: Fermez la boîte de dialogue d'attente
ProgressStepit: attendez la position de la barre de progression dans la boîte de dialogue pour augmenter l'étape
Attributs principaux:
Nom: en attente du nom de la boîte de dialogue
Légende: attendez la boîte de dialogue Légende
Message1: en attente du message rapide de la boîte de dialogue 1
Message2: en attente du message rapide de la boîte de dialogue 2
WordWrap: Message1 et Message2 sont affichés dans les lignes, sera-t-elle automatiquement convertie?
Message1Font, Message2Font: Message1, Message2 Fonts
Aviactif: attendez si l'action AVI est exécutée dans la boîte de dialogue
ProgressMax: valeur maximale de la barre de progrès
ProgressMin: Valeur minimale de la barre de progrès
ProgressPos: emplacement actuel de la barre de progrès
ProgressStep: la barre de progression de la méthode ProgressStepit augmente la quantité de pas
DialogStyle (= dlgnormal, dlgstayontop): est-ce toujours devant lorsque vous attendez que la boîte de dialogue soit affichée
Aviposition (= Avibottom, Avitop, Avileft): l'emplacement d'Avi
[Options]:
showMessage1: s'il faut afficher le message rapide 1
showMessage2: s'il faut afficher le message rapide 2
showavi: s'il faut afficher avi
Showcaption: s'il faut afficher la légende de la boîte de dialogue d'attente
showProgress: s'il faut afficher la barre de progression
ShowProgressText: si le pourcentage de progrès est affiché sur la barre de progression