splashscreen

← →
mops (2008-11-11 10:26) [0]

подскажите, как решить такую проблему: делаю splashscreen для программы - показываю нужную форму перед созданием остальных, но форма с splashscreen не прорисовывается..

... begin Application.Initialize; Application.CreateForm(TFormLoading,FormLoading); Application.Title := "MyProg"; Application.CreateForm(TFormmain, Formmain); ... Application.Run; FormLoading.Hide; end.

← →
Сергей М. © (2008-11-11 10:43) [1]

Дело, наверно, в многоточии

← →
Anatoly Podgoretsky © (2008-11-11 10:47) [2]

> Сергей М. (11.11.2008 10:43:01) [1]

Можно не сомневаться, именно там действия по показу формы.

← →
Anatoly Podgoretsky © (2008-11-11 10:47) [3]

> mops (11.11.2008 10:26:00) [0]

Автор в приведеном коде ошибок нет.

← →
mops (2008-11-11 10:53) [4]

во многоточии просто еще создаются формы

← →
Сергей М. © (2008-11-11 10:54) [5]

> Anatoly Podgoretsky © (11.11.08 10:47) [3]

Ну как же нет ?
Сплеш-форма стала основной, хотя основной должна быть TFormmain - и вся дальнейшая логика коту под хвост, даже если Автор увидит свою splashscreen во всей красе

← →
mops (2008-11-11 10:58) [6]

я делал и так:

begin Application.Initialize; with TLogoForm.Create(Application) do try Show; Update; Application.CreateForm(TForm1, Form1); ... finally Free; end; Application.Run; end.

но splashscreen тоже не прорисовывался..

← →
Сергей М. © (2008-11-11 11:27) [7]

begin
Application.Initialize;
with TLogoForm.Create(nil) do
try
Show;
Application.ProcessMessages;

Application.CreateForm(TForm1, Form1);
Application.ProcessMessages;

Application.CreateForm(TForm2, Form2);
Application.ProcessMessages;

...

Application.CreateForm(TFormN, FormN);
finally
Free;
end;
Application.Run;
end.

← →
alex_3 (2008-11-11 11:35) [8]

2 Сергей М.

так тоже пробовал - мигает (
может есть вообще какой нибудь другой способ?

← →
Сергей М. © (2008-11-11 11:44) [9]

мигает <> не прорисовывается

← →
mops (2008-11-11 11:46) [10]

это да, но вы поняли чего я добиваюсь )

Ну так сделай свою сплеш-форму StayOnTop и будет тебе счастье !
Всего делов-то)

> Show;
> Application.ProcessMessages;

Лучше update

← →
mops (2008-11-11 13:08) [13]

спасибо

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