Нужна помошь по progressbar в delphi

[hodas4]

есть форма1 которая главная.так вот как сделать,чтобы при запуске exe появлялась форма с progressbar которая вызывает загрузку формы1 и datamodule6 на котором идет подключение базы данных????
просто из-за неё загрузка идет около 10 секунд, и без progressbar кажется что прога зависла.....(((((

[rustx88]

создай поток - и в этом потоке сделай подключение к базе, соотвественно интерфейс проги не будет зависеть от ожидания подключения
и в другом потоке сделай проверку прошло ли подключение

например, первый поток запускает подключение
connect := false
бла бла бла
// успешно подключились
connect := true

второй поток тупо ожидает завершения первого потока либо проверяет N секунд переменную connect на значение true

\\процедура таймера\\
здесь развлекаем пользователя показываем движущиеся рогалики
if connect = true
timer.stop;
if time > N and connect = false
убиваем первый процесс
показываем мессагу что время вышло


вот такой принцип)))

[hodas4]

ни катит!!!
мне нужно именно форма с progressbar которая запускает первую форму datamodule1 ,потом какой нидь цикл проверяющий загрузилась ли форма,если да,то statusbar = 100% и форма со statusbar закрывается....вот типо такого ....

[Sinapsik]

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

ни катит!!!
мне нужно именно форма с progressbar которая запускает первую форму datamodule1 ,потом какой нидь цикл проверяющий загрузилась ли форма,если да,то statusbar = 100% и форма со statusbar закрывается....вот типо такого ....

проще говоря нужна форма-заставка показывающая процесс загрузки формы с БД?
Если правильно понял,то:
На форме-заставке ставим таймер и с небольшим интервалом проверяем доступность БД.Если недоступна - увеличиваем занчение прогрессбара,если доступна - устанавливаем максимальное значение,закрываем форму-заставку,открываем форму с БД

[rustx88]

ни катит!!!

прежде чем высказывать свои неадекватные мысли, хотя бы осмысли, что я написал