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

← →
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]

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

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

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

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

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

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