Форум: "Начинающим";
Текущий архив: 2006.01.08;
Скачать: [xml.tar.bz2];

Вниз

Программа заставка   Найти похожие ветки 

← →
Scripl   (2005-12-17 23:24) [0]

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

---

← →
alex-drob ©   (2005-12-17 23:31) [1]

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

---

← →
Scripl   (2005-12-17 23:36) [2]

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

---

← →
Scripl   (2005-12-17 23:40) [3]

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

---

← →
DrPass ©   (2005-12-17 23:55) [4]

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

---

← →
alex-drob ©   (2005-12-17 23:56) [5]

Нажимаешь 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) [6]

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

---

← →
alex-drob ©   (2005-12-17 23:57) [7]

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

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

---

← →
Scripl   (2005-12-18 00:01) [8]

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

---

Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2006.01.08;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.46 MB
Время: 0.007 c