22.02.2014, 09:34
|
|
Новичок
|
|
Регистрация: 18.11.2013
Сообщения: 61
Версия Delphi: Delphi 7
Репутация: 10
|
|
Код:
SplashScreen := TSplashScreen.Create(Application);
SplashScreen.ClientHeight:=256;
SplashScreen.ClientWidth:=520;
SplashScreen.Height:=294;
SplashScreen.Width:=536;
SplashScreen.Show;
SplashScreen.Update;
Application.CreateForm(TForm1, Form1);
SplashScreen.Update;
Application.CreateForm(TForm2, Form2);
Application.CreateForm(TForm3, Form3);
Application.CreateForm(TForm4, Form4);
если же зделать вот так:
Код:
Application.CreateForm(TForm1, Form1);
Application.CreateForm(TForm2, Form2);
SplashScreen := TSplashScreen.Create(Application);
SplashScreen.ClientHeight:=256;
SplashScreen.ClientWidth:=520;
SplashScreen.Height:=294;
SplashScreen.Width:=536;
SplashScreen.Show;
SplashScreen.Update;
Application.CreateForm(TForm3, Form3);
Application.CreateForm(TForm4, Form4);
ошибка по прежнему высвечуеться( |