Endereço para download do código -fonte: http://www.csdn.net/cnshare/soft/openfile.asp?kind=1&id=21608
Se você não puder fazer o download, verifique: http://blog.csdn.net/luckyjan/archive/2003/06/25/13071.aspx
Código -fonte para uma caixa de diálogo em espera para programação Delphi
Ele é usado principalmente para exibir uma caixa de diálogo em espera durante o programa em execução, que contém um AVI (tanimate), duas mensagens rápidas (ou seja, tlabel) e uma barra de progresso (tgauge);
Métodos principais:
Formshow: mostre a caixa de diálogo em espera
FormHide: Feche a caixa de diálogo em espera
Progresstepit: aguarde a posição da barra de progresso na caixa de diálogo para aumentar a etapa
Atributos principais:
Nome: Aguardando o nome da caixa de diálogo
Legenda: aguarde a legenda do título de diálogo
Message1: Aguardando a mensagem imediata da caixa de diálogo 1
Message2: Aguardando a mensagem imediata da caixa de diálogo 2
WordWrap: Message1 e Message2 são exibidos nas linhas, ele será automaticamente convertido?
Message1Font, Message2Font: Message1, Message2 Fonts
AVACITIVO: Aguarde se a ação AVI é executada na caixa de diálogo
Progressmax: barra máxima da barra de progresso
Progresso:
Progresspos: Localização atual da barra de progresso
Progresso: a barra de progresso no método ProgressStopit aumenta a quantidade de etapa
Diálogo
AVIPOSIÇÃO (= Avibottom, Avitop, Avileft): A localização de Avi
[Opções]:
ShowMessage1: Se você deve exibir a Mensagem 1
ShowMessage2: Se deve exibir a mensagem PROMPRADA 2
Showavi: se deve exibir Avi
ShowCaption: se deve exibir a legenda de diálogo em espera
SmohtProgress: se deve exibir a barra de progresso
SmohtProgressText: se a porcentagem de progresso é exibida na barra de progresso