Форум: "Основная";
Текущий архив: 2004.03.28;
Скачать: [xml.tar.bz2];
Вниз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 вся ветка
Форум: "Основная";
Текущий архив: 2004.03.28;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.032 c