Адрес загрузки исходного кода: http://www.csdn.net/cnshare/soft/openfile.asp?kind=1&id=21608
Если вы не можете скачать, пожалуйста, проверьте: http://blog.csdn.net/luckyjan/archive/2003/06/25/13071.aspx
Исходный код для диалога с ожиданием программирования Delphi
Он используется в основном для отображения диалогового окна ожидания во время работы программы, которая содержит AVI (Tanimate), два сообщения о приглашении (то есть Tlabel) и панель прогресса (TGAUGE);
Основные методы:
FormShow: Покажите диалоговое окно ожидания
Формад: закройте диалоговое окно ожидания
ProgressStepit: дождитесь позиции панели прогресса в диалоговом окне, чтобы увеличить шаг
Основные атрибуты:
Имя: Имя диалогового окна в ожидании
Надпись: дождитесь заголовка диалога
Сообщение1: В ожидании сообщения о приглашении диалогового окна 1
Сообщение2: В ожидании сообщения о приглашении диалогового окна 2
WordWrap: Message1 и Message2 отображаются в рядах, будет ли он автоматически преобразован?
Message1font, Message2font: Message1, Ponse2 Fonts
Aviacitive: Подождите, выполняется ли действие AVI в диалоговом окне
ProgressMax: максимальная стоимость панели прогресса
Progressmin: минимальная ценность панели прогресса
ProgressPos: текущее местоположение панели прогресса
ProgressStep: строка прогресса в методе ProgressStepit увеличивает количество шага
Dialogstyle (= dlgnormal, dlgstayontop): всегда впереди, ожидая отображения диалогового окна
Aviposition (= Avibottom, Avitop, Avileft): расположение Avi
[Параметры]:
ShowMessage1: отображать сообщение о приглашении 1
ShowMessage2: отображать сообщение об подсказке 2
Showavi: отображать AVI
Showcaption: Чтобы отобразить подпись диалога с ожиданием
ShowProgress: Чтобы отобразить панель прогресса
ShowProgressText: отображается ли процент прогресса в панели прогресса