Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.01.08;
Скачать: CL | DM;

Вниз

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

 
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;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.007 c
2-1135222562
DelphiN!
2005-12-22 06:36
2006.01.08
Out of memory On data fetching


2-1135107674
Soff
2005-12-20 22:41
2006.01.08
Какой это Класс исключений?


4-1130840334
BFG9k
2005-11-01 13:18
2006.01.08
Передача настроек принтера


2-1134837845
Lokk
2005-12-17 19:44
2006.01.08
Помогите написать запрос


2-1135039470
Neirooman
2005-12-20 03:44
2006.01.08
Курсор из файла





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский