Фоновая заставка

Форум — Ответы ( К темам )

? dannis: Фоновая заставка (10-02-2003 16:41:01)
Приложение при запуске коннектится к СУБД, это занимает секунд 20. Хочу на это время выводить заставку, которая исчезала бы при завершении коннекта к базе.
Как бы это реализовать ? Посмотреть бы готовый пример подобной реализации (разумеется, не обязательно связанной с СУБД).

Спасибо.
Владимир (11-02-2003 00:12:27)

Так в чем проблема ? И делайте как написали.
1 Создайте форму с заставкой — те добавьте в проект новую форму для заставки (делайте ее не автоматически создаваемой)
2 Показывайте ее перед началом коннекта
3 Коннектитесь к СУБД
4 Закрываете, удаляете эту форму

Application->CreateForm(__classid(TForm2), &Form2);
Form2->Show();
Database1->Connected = true;
Query1->Open();
Form2->Close();
delete Form2;

dannis (11-02-2003 09:12:48)

Коннект происходит внутри конструктора главной формы;
Form2 выводится, но почему-то без размещенного на ней Label-а;
после delete Form2 приложение завершается (помимо Form2 закрывается и главная форма).
Form2, разумеется, поместил в 'Available forms'.

Где копать ? ;-)

dannis (11-02-2003 09:35:04)

Вопрос снят.
В {BCB}\examples\dbtask\mastapp есть пример реализации в точности того, что мне надо.

?	dannis: Фоновая заставка (10-02-2003 16:41:01)
Приложение при запуске коннектится к СУБД, это занимает секунд 20. Хочу на это время выводить заставку, которая исчезала бы при завершении коннекта к базе. Как бы это реализовать ? Посмотреть бы готовый пример подобной реализации (разумеется, не обязательно связанной с СУБД). Спасибо.
Владимир (11-02-2003 00:12:27)
Так в чем проблема ? И делайте как написали. 1 Создайте форму с заставкой — те добавьте в проект новую форму для заставки (делайте ее не автоматически создаваемой) 2 Показывайте ее перед началом коннекта 3 Коннектитесь к СУБД 4 Закрываете, удаляете эту форму Application->CreateForm(__classid(TForm2), &Form2); Form2->Show(); Database1->Connected = true; Query1->Open(); Form2->Close(); delete Form2;
dannis (11-02-2003 09:12:48)
Коннект происходит внутри конструктора главной формы; Form2 выводится, но почему-то без размещенного на ней Label-а; после delete Form2 приложение завершается (помимо Form2 закрывается и главная форма). Form2, разумеется, поместил в 'Available forms'. Где копать ? ;-)
dannis (11-02-2003 09:35:04)
Вопрос снят. В {BCB}\examples\dbtask\mastapp есть пример реализации в точности того, что мне надо.