Скачать: CL | DM;

Splah form   Найти похожие ветки 

← →
Ivolg ©   (2004-03-05 19:54) [0]

Приветик! Как можно создать Сплешь форму(Splah form)? Спасибо!

---

← →
TUser ©   (2004-03-05 19:59) [1]

Было в последнее время 2 ветки с таким вопросом - поищи в архиве.

---

← →
Алхимик ©   (2004-03-05 20:08) [2]

В файле проекта:
 Application.Initialize;
 Application.CreateForm(TMainForm, MainForm);   // Создаем главную форму
 Application.CreateForm(TfrmSplash, frmSplash); // Создаём Сплешь форму :)
 frmSplash.Show;
 Application.ProcessMessage; // Даём Win обработать поступившие сообщения
                             // в частноти нарисовать frmSplash
 {здесь создаём остальные формы проекта}
 frmSplash.Close;
 frmSplash.Free;
 Application.Run;

---

← →
Anatoly Podgoretsky ©   (2004-03-05 20:28) [3]

Это обычная форма, ничем не отличается от других, ее просто показывают на этапе загрузки.

---

← →
Gero ©   (2004-03-05 22:19) [4]

> Как можно создать Сплешь форму

Так же, как и любую другую: TForm.Create(...)

---

← →
snoup ©   (2004-03-06 01:12) [5]

Попробуй в главном модуле программы:
................

begin
Application.Initialize;
Application.CreateForm(TMainForm,MainForm);
Application.ShowMainForm:=false;
SplashForm:=TSplashForm.Create(MainForm);
try
 SplashForm.ShowModal;
finally
 SplashForm.Release;
 SplashForm:=nil;
end;
Application.Run;


Примерно.
Этот код на случай если используешь например WinXp Manifest и компаненты которые управляют им находятся в модуле главной формы.

---

← →
Alexander666 ©   (2004-03-06 05:41) [6]

А можно и так:

.....................
begin
Application.Initialize;
SplashForm := TSplashForm.Create(MainForm);
SplashForm.Show;
SplashForm.Update;
while SplashForm.Timer1.Enabled do
 Application.ProcessMessages;
Application.CreateForm(TMainForm, MainForm);
{ Далее идет создание всех остальных форм }
SplashForm.Hide;
SplashForm.Free;
SplashForm := nil; // ну это уже из принципа, можно и не писать.
Application.Run;


---

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

Скачать: CL | DM;



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