| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Splash-screen

Big Daddy ©   (2002-06-15 11:21:00) 

Нужно сделать эаставку перед запуском проги как в Делфи. Только главная ворма у меня Form1, а всего около 10 есть ещё других форм. Как всавить и куда вставить код в dpr-файл?

---

GREENPOWERI   (2002-06-16 11:27:00) [1]

RAK NI GANI!!!

---

RAK   (2002-06-16 11:25:00) [2]

APPLICATION.INITIALIZE():

---

777   (2002-06-16 11:15:00) [3]

2 Big Daddy ©:
..\Delphi\Demos\Db\MastApp\MastApp.dpr

begin
Application.Initialize;
SplashForm := TSplashForm.Create(Application);
SplashForm.Show;
SplashForm.Update;

//...

SplashForm.Hide;
SplashForm.Free;
Application.Run;

---

Song   (2002-06-16 11:03:00) [4]

Эко интересно как у Вас прога может реагировать на реакцию значка в проге пока не произошло Application.Run ?
Это невозможно...

---

SPeller   (2002-06-15 17:26:00) [5]

Закрывайте ту, которая создавалась первой через Application.CreateForm. Первая такая форма становится главной в приложении, и если закрыть её, то закроется всё приложение.

---

Big Daddy   (2002-06-15 16:19:00) [6]

Если можно, дайте пример

---

Big Daddy   (2002-06-15 15:51:00) [7]

Song, спасибо, разобрался, всё работает. Теперь у меня такая проблема:
При создании Form1 и у меня в трэй помещается значок. И при запуске проги вылазиет splash-screen
и в трэе уже сидит значок. Так вот, пока не догрузилась прога (т.е. все остальные формы),
если кликнуть на этот значок в трэе, то выскакивают самые разнообразные ошибки.
Я поменял так, поставил Form1 в dpr-файле создаваться последней. Тогда всё нормально, но
теперь невозможно закрыть программу. Что делать?

---

Anatoly Podgoretsky   (2002-06-15 12:07:00) [8]

MsatApp

---

Song   (2002-06-15 11:51:00) [9]

Не надо её скрывать, сделайте просто Free:

************************* dpr *********************
With Application Do
Begin
Initilize;
With TForm11.Create(nil) // Splash форма
try
Show;
Update; // или Repaint
// здесь пиуттся автоматичски создаваемые формы
finally
Free;
end;
Run;
End;
************************* dpr **********************


---

Big Daddy   (2002-06-15 11:46:00) [10]

У меня ворм 10 создаються при загрузке, т.к. надо. А вот то, что вы говорите, форму поставить первой, это та которая с рисунком? И как потом, как всё подгрузиться, скрыть её?

---

Song   (2002-06-15 11:36:00) [11]

Создайте форму, нарисуйте на ней, что Вам нужно, уберите из списка автоматически создаваемых и вставьте её показ в dpr после Application.Initilize
Перед Application.Run её можно разрушить.

---

Наверх