Заставка для программы

[Кольша]

создаем две формы(не забываем второй сообщить о первой в uses)!на первой форме в обработчик create пишем hide; на второй туда же пишем show; переходим ко второй форме кидаем на нее таймер интервал сколько вам надо enabled:=false; далее пишем у второй формы обработчик на событие onshow пишем туда следующее timer1.enabled:=true; теперь кликаем на timer два раза и пишем

form1.show; form2.free;

[Человек_Борща]

i - переменая типа Integer
SF - переменная типа TForm У меня это TSplasshForm(её я создаю в run-time).
AllowedSplashScreen - моя функция проверки, хочет ли юзер видет заставку при запуске.
ProgressLoad - мой прогресс бар(Использую TGauge).

[tim21701]

Кольша спасибо. ))) Как сделать заставку и потом показать главную форму я знаю.

Мне надо отображать ход загрузки всех окон - пока показывается заставка, и вот с этим у меня проблема...
Пример Человек_Борща может быть и хороший, но я не могу с ним разобраться, не работает...

[tim21701]

Всё, разобрался... )) Только вместо Application.CreateForm(TForm, Form2); (как у Человек_Борща) я использовал Form2:=TForm2.create(self); ибо это лучше... ))

Кстати, Человек_Борща, непонятно вообще зачем Вам нужен такой код, для украшательства что ли? ))) Он ведь не несёт никакую информацию о загрузке...

Вопрос в другом, что за артефакт при загрузке приложения???
Откуда такое мерцание перед появлением формы?

Сделал проект - что бы было понятно.
Отдельно екзешник.

[Прик]

Вопрос в другом, что за артефакт при загрузке приложения???
Откуда такое мерцание перед появлением формы?

Если делать:

      Form2.Parent := Panel1;

то и не такое привидится
Приемы эти для фреймов подходят, но никак не для форм. В приведенном коде форма появляются сразу после ее создания. Именно поэтому "артефакт". Чтобы его избежать, надо скрывать форму после ее создания, а после изменения Parent - отображать.

[tim21701]

Сообщение от Прик

...Чтобы его избежать, надо скрывать форму после ее создания, а после изменения Parent - отображать.

Нашел причину этого "глюка"... У Form2 почему то стоит Visible.True. Вернул на False и всё теперь корректно. Спасибо. )))

[Человек_Борща]

Кстати, Человек_Борща, непонятно вообще зачем Вам нужен такой код, для украшательства что ли? ))) Он ведь не несёт никакую информацию о загрузке...

С чего вы взяли, что я не вырезал оттуда все то, что вам вообще не надо?
Я делаю там инициализацию настроек приложения, подготовку программы к работе, и только потом пускаю интерфейс.

Мерцание вызвает, абсолютно не нужный:
Form1.Update;

Form2.Parent:=Panel1;

Ваша форма - это не фрейм. Его нельзя запихать во что-то.
В кач-ве родителя, либо nil либо Application. Для Run-time я предпочитаю nil.

[tim21701]

Сообщение от Человек_Борща

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

Вот уж не знаю, где Вы в своём - предоставленном коде, увидели "инициализацию" приложения... ))))) В этом коде, я лишь вижу - как при достижении условия (if - ...Progress) у TGauge - создаётся форма. Даже исключения нет и обработок, не говоря уже о "инициализации". Что то Вы путаете... ))

Сообщение от Человек_Борща

...Мерцание вызывает, абсолютно не нужный:
Form1.Update;

Form1.Update приводит к перерисовке всех элементов управления, если на форме что-то рисовалось "руками"... В моём случае - OnPaint. Просто "кое чего не хватает"...

Сообщение от Человек_Борща

...Ваша форма - это не фрейм. Его нельзя запихать во что-то...

А вот это вообще странно слышать, особенно от человека у которого "Репутация: 381" ))))) Не флейм - да, нельзя "запихать" - нет! Перечитайте ещё раз сообщение № 14 в этой теме, а ещё лучше - скачайте исходник и посмотрите... (только поменяйте у Form2 Visible на False.)

В любом случае - всем спасибо. Тему можно закрыть, так как (основной) вопрос решен.