Как мне показать прогресс запуска приложения?

← →
--Kostik-- © (2004-04-29 14:17) [0]

Здравствуйте, у меня есть небольшая проблема - приложение запускается около 10 секунд, мне необходимо чтобы со времени запуска программы до полной загрузки формы отображалось какое нибедь окошко или на худой конец курсор мыши был бы в виде часов.
ПРобовал создавать отдельную форму с прогрессбаром, но при запуске происходит что то непонятное, новая форма создается прогрессбар продвигается, но когда новая форма должна закрыться, а приложение само запуститься - эта форма закрывается и закрывается приложение. помогите

← →
Reindeer Moss Eater © (2004-04-29 14:19) [1]

Delphi\Demos\Db\MastApp

← →
Тимохов © (2004-04-29 14:19) [2]

не запускается, а иницилизируется.

можешь перед application.run, но после application.initialize в YourProject.Dpr вставить форму, потом запустить инициализацию, потом убрать форму.

← →
PVOzerski © (2004-04-29 14:24) [3]

Ну, такое описание проблемы мало чем может помочь. Идея же такая. "Запуск" приложения - это его работа в "линейном" режиме до тех пор, пока не включится его диспетчер сообщений. В это время происходят какие-то действия. Если этот процесс начать с того, что в отдельном потоке создать и показать окошко со своим диспетчером сообщений, а потом из основного потока посылать на него сообщения, можно отображать процесс загрузки. Как всё это реализовать на VCL - разбирайся сам, но судя по тому, как грузится сама Delphi, это должно быть не слишком сложно.

спасибо большое, не ожидал такой оперативности :)

дело в том что если форма сздается при помощи application.createform то первую форму созданую таким образом назначают главной, и при ее закрытии завершается программа. Естественно что заставка никак не может быть главной, то этому ее надо создавать так form1 := tform1.create(nil);
и потом перед вызовом application.run прибивать.

Как мне показать прогресс запуска приложения? Найти похожие ветки