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(...)

Попробуй в главном модуле программы:
................
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 и компаненты которые управляют им находятся в модуле главной формы.

А можно и так:
..................... 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;

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