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

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

Программа заставка

Scripl ©   (2005-12-17 23:24:00) 

Можно ли сделать так,чтобы перед появлением программы выскакивала заставка(форма) секунд на 5 ,а потом исчезала???

---

Scripl   (2005-12-18 00:01:00) [1]

alex-drobСПАСИБА!!!!!

---

alex-drob   (2005-12-17 23:57:00) [2]

> Удаляешь строку Application.CreateForm(TForm2, Form2);

Если конечно заставкой делаешь вторую форму. Если нет то строку где создаётся твоя форма.

---

alex-drob   (2005-12-17 23:56:00) [3]

Нажимаешь New Form
Укрошаешь форму картинками, надписями и т.д.
Нажимаешь в меню Project -> Viev Source
Удаляешь строку Application.CreateForm(TForm2, Form2);
Перед begin пишешь
var
 Zast:TForm2;
После строки Application.Initialize;пишешь
Zast:=TForm2.Create(application);
Zast.Position:=poDesktopCenter;
Zast.BorderStyle:=bsNone;
Zast.Show;
Zast.Update;
Далее идут строки создания остальных форм
Application.CreateForm(TForm1, Form1);
Потом пауза в 5 секунд (в uses добавь SysUtils)
sleep(1000);
Потом уничтожаешь форму
Zast.Free;

---

Scripl   (2005-12-17 23:56:00) [4]

рано...согласен..меня заставляют!!!!садисты...

---

DrPass   (2005-12-17 23:55:00) [5]

меню Project - View Source. А дальше поймешь. А если не поймешь, пока еще рано делать такие вещи :)

---

Scripl   (2005-12-17 23:40:00) [6]

А можно всё описать очень подробно и пошагово...не злитесь..я нифига в делфи не понимаю))...

---

Scripl   (2005-12-17 23:36:00) [7]

ок...спасиба

---

alex-drob   (2005-12-17 23:31:00) [8]

Создаёшь новую форму, в dpr убераешь её создание, например для Form2 это
Application.CreateForm(TForm2, Form2);
Далее создаёшь форму
Application.Initialize;
Form2:=TForm2.Create(application);
Form2.Show;
Form2.Update;
...
sleep(5000);
Form2.free;
Application.Run;

---

Наверх