[Uniq!]

Как отобразить процесс соединения ADOConnection, а то пользователи нервничать начинают,
пока программа соединяется с сервером и загружает таблицы из удалённой БД.

[NumLock]

TProgressBar, TAnimate

[Uniq!]

Сообщение от NumLock

TProgressBar, TAnimate

Какие компоненты использовать, я знаю. Мне идея нужна.
Пока в голову пришла только одна:

Код:

ADOConn.Connected := true;
Progressbar.position := 20;
Application.ProcessMessages;
ADOTable1.Open;
Progressbar.position := 20;
Application.ProcessMessages;
...

4ре таблицы + само соединение. А если ещё будут таблицы... Покрасивее ничего нет?

[Ildar-tsr]

Сообщение от Uniq!

4ре таблицы + само соединение. А если ещё будут таблицы... Покрасивее ничего нет?

Ну так если время соединения изначально неизвестно, так ничего красивее и не получится. Обычно в таких случаях используется не прогрессбар, а анимация какая-нибудь, которая показывает что программа не зависла.

[Freeman]

Если во время запуска программы выполняются какие-то потенциально перечисляемые действия, вроде ADOTable1.Open из приведенного примера, их имена можно их выводить в заставке, как это делает Delphi или Photoshop.

Поскольку в соседней теме автор просил помощи в борьбе с быдлокодом, сразу скажу, что так как на примере писать не нужно. Должна быть некая общая процедура, выводящая "Загружается %s" в окне заставки. Вызов этой процедуры должен стоять в событии BeforeOpen, в AfterOpen можно поставить очистку строки. Причем, если у означенных компонентов нет своих обработчиков данных событий, обработчик должен быть один на все таблицы сразу. Если же у некоторых свой обработчик есть, добавляем в него вызов процедуры статуса (именно для этого нам и понадобилась процедура). Для остальных компонентов обработчик будет по-прежнему один общий.

В качестве имен можно выводить имя компонента или значащую часть имени, убрав префиксы/постфиксы "ADO", если есть. Заодно будет повод назвать компоненты по-нормальному, а не ADOTable1, ADOTable2. Если же хочется совсем по-человечески, придется завести таблицу подстановки, в которой имя компонента соответствует читабельному наименованию. Красота требует жертв.

Под таблицей подстановки подразумевается не столько таблица БД, сколько типизированная константа массивового типа в самой программе. Я бы сделал именно так.

[Uniq!]

Сообщение от Freeman

... как это делает Delphi или Photoshop.

Отказ от прогрессбара - адекватное решение.

Сообщение от Freeman

Поскольку в соседней теме автор просил помощи в борьбе с быдлокодом

Подкиньте ссылочку. Не могу найти эту "тему".

Сообщение от Freeman

BeforeOpen, в AfterOpen можно поставить очистку строки.

Всё остальное косметика. А компоненты всегда обзываю адекватно. Просто пример писал на скорую руку.

И ещё, пожалуйста, подскажите небыдлокодерский вариант создания Экрана загрузки приложения.
Думал сделать (дополнительную) форму, на OnShow которой, загрузить все таблицы. Но где вызвать её рождение ума не приложу.