Создать окно, отображающее загрузку приложения - Общие вопросы Delphi

Лукманов Александр · 04.03.2009, 16:50

Программа грузится около пяти секунд (циклы на цикле). Как сделать форму которая загружалась бы сразу, и отображала загрузку других форм (форм всего 10).

Примерно думаю как:

На вкладке Project1, после загрузки каждой формы поставить счётчик
Application.CreateForm(TFormN, FormN);
k:=k+1; и т.д.

На перво-появляющейся форме поставить ProgressBar1 обращающийся к "К"

Как создать это перво-появляющееся окно?

Bayazet · 04.03.2009, 18:42

ну вообще, что брать счетчиком для прогрессбара - весьма субъективная задача, поэтому без кода могу только гадать:
если говорите, что у вас цикл на цикле, поэтому резонно за счетчик взять индекс первого, самого главного цикла, а за мах для прогрессбара - количество его итераций. естественно, счетчик - глобальная переменная.

а насчет перво-появляющегося окна - в свойствах проекта (project - options) в автокриэйт поставить вашу форму со статуссбаром, а все остальные - в авалибл формс. и соответственно, в FormCreate первой ставить загрузку следующих. когда статусбар пройдет до мах - close первой формы.

надеюсь, понятно изложил?..

и еще более надеюсь, что понял суть проблемы

mihali4 · 04.03.2009, 18:47

Вопрос рассматривался неоднократно. Всего-то нужно пользоваться поиском по форуму:
http://programmersforum.ru/showthread.php?t=30100
http://programmersforum.ru/showthread.php?p=83223

Лукманов Александр · 04.03.2009, 19:39

Спасибо всем.
Bayazet, объяснили понятно.

04.03.2009, 16:50	#1
Лукманов Александр работа не волк.... Форумчанин Регистрация: 09.06.2008 Сообщений: 337	Создать окно, отображающее загрузку приложения Программа грузится около пяти секунд (циклы на цикле). Как сделать форму которая загружалась бы сразу, и отображала загрузку других форм (форм всего 10). Примерно думаю как: На вкладке Project1, после загрузки каждой формы поставить счётчик Application.CreateForm(TFormN, FormN); k:=k+1; и т.д. На перво-появляющейся форме поставить ProgressBar1 обращающийся к "К" Как создать это перво-появляющееся окно? Цель, для которой требуются неправые средства, не есть неправая цель.

04.03.2009, 19:39	#4
Лукманов Александр работа не волк.... Форумчанин Регистрация: 09.06.2008 Сообщений: 337	Спасибо всем. Bayazet, объяснили понятно. Цель, для которой требуются неправые средства, не есть неправая цель.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Нужно создать программку, отображающую текущую загрузку процессора.	Naik	Общие вопросы Delphi	6	03.03.2009 08:42
Как активизировать окно моего приложения?	_ozzy_	Общие вопросы Delphi	3	10.04.2008 13:25
Создать окно на рабочем столе	AidarBik	Win Api	19	09.02.2008 17:47
Создать окно со списком и кнопкой!!!	Versifikator	Microsoft Office Excel	2	07.12.2007 17:22
«Окно+символ». Создать класс, представляющий окно в текстовом режиме.	RustreX	Паскаль, Turbo Pascal, PascalABC.NET	1	11.11.2007 19:28

04.03.2009, 18:42	#2
Bayazet Форумчанин Регистрация: 08.12.2008 Сообщений: 156	ну вообще, что брать счетчиком для прогрессбара - весьма субъективная задача, поэтому без кода могу только гадать: если говорите, что у вас цикл на цикле, поэтому резонно за счетчик взять индекс первого, самого главного цикла, а за мах для прогрессбара - количество его итераций. естественно, счетчик - глобальная переменная. а насчет перво-появляющегося окна - в свойствах проекта (project - options) в автокриэйт поставить вашу форму со статуссбаром, а все остальные - в авалибл формс. и соответственно, в FormCreate первой ставить загрузку следующих. когда статусбар пройдет до мах - close первой формы. надеюсь, понятно изложил?.. и еще более надеюсь, что понял суть проблемы

04.03.2009, 18:47	#3
mihali4 * Старожил Регистрация: 22.11.2006 Сообщений: 9,201	Вопрос рассматривался неоднократно. Всего-то нужно пользоваться поиском по форуму: http://programmersforum.ru/showthread.php?t=30100 http://programmersforum.ru/showthread.php?p=83223