Dirección de descarga del código fuente: http://www.csdn.net/cnshare/soft/openfile.asp?kind=1&id=21608
Si no puede descargar, verifique: http://blog.csdn.net/luckyjan/archive/2003/06/25/13071.aspx
Código fuente para un cuadro de diálogo de espera para la programación Delphi
Se usa principalmente para mostrar un cuadro de diálogo que espera durante el programa en ejecución, que contiene un avi (tanate), dos mensajes de inmediato (es decir, tlabel) y una barra de progreso (tgauge);
Métodos principales:
FormShow: Mostrar el cuadro de diálogo que espera
Formhide: Cierre el cuadro de diálogo que espera
Progressstepit: espere la posición de la barra de progreso en el cuadro de diálogo para aumentar el paso
Atributos principales:
Nombre: Waiting For DietOg Cuadro Nombre
Leyenda: espera el título de título de diálogo
Mensaje 1: Esperando el mensaje de inmediato del cuadro de diálogo 1
Mensaje 2: Esperando el mensaje de inmediato del cuadro de diálogo 2
Wordwrap: el mensaje1 y el mensaje2 se muestran en las filas, ¿se convertirá automáticamente?
Message1Font, Message2Font: Message1, Message2 Fonts
AviANTIVE: espere si la acción AVI se ejecuta en el cuadro de diálogo
Progressmax: valor máximo de la barra de progreso
Progressmin: valor mínimo de la barra de progreso
ProgressPos: ubicación actual de la barra de progreso
ProgressStep: la barra de progreso en el método ProgressStepit aumenta la cantidad de paso
DialogStyle (= dlgnormal, dlgstayontop): ¿está siempre en el frente cuando se espera que se muestre el cuadro de diálogo?
Aviposición (= Avibottom, Avitop, Avileft): la ubicación de AVI
[Opciones]:
showMessage1: si mostrar el mensaje de inmediato 1
showMessage2: si se debe mostrar el mensaje de inmediato 2
showavi: si mostrar avi
showcaption: si se debe mostrar el título de diálogo que espera
ShowProgress: si mostrar la barra de progreso
ShowProgressText: si el porcentaje de progreso se muestra en la barra de progreso