zaczynać
FormSplashScreen: = TFormSplashScreen.Create (Zastosowanie);
próba
FormSplashScreen.Show;
Application.Initialize;
FormSplashScreen.Update;
Sen (3000);
Application.CreateForm (TFormMain, FormMain);
Application.CreateForm (TFormOptions, FormOptions);
Application.CreateForm (TForm1, Form1);
w końcu
FormSplashScreen.Hide;
FormSplashScreen.Free;
końcówka;
Application.Run;
końcówka.
|