Cuestión : ¿Cómo demostrar esta pantalla del chapoteo por 3 segundos?

Hola, el

I creó mi pantalla del chapoteo usar el método mencionado aquí: rel= " nofollow " del " _blank " del target= de " http://delphi.about.com/od/formsdialogs/a/splashscreen.htm " del href= del necesidad del /formsdialogs/a/splashscreen.htm

I de http://delphi.about.com/od de demostrar la pantalla del chapoteo por 3 segundos antes de demostrar la ayuda principal de form.

Please. Thanks. class= del

Respuesta : ¿Cómo demostrar esta pantalla del chapoteo por 3 segundos?

Mirar, esto es el mejor

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

comenzar
FormSplashScreen: = TFormSplashScreen.Create (uso);
  intento
  FormSplashScreen.Show;
  Application.Initialize;
  FormSplashScreen.Update;
  Sueño (3000);
  Application.CreateForm (TFormMain, FormMain);
  Application.CreateForm (TFormOptions, FormOptions);
  Application.CreateForm (TForm1, Form1);
  finalmente
  FormSplashScreen.Hide;
  FormSplashScreen.Free;
  extremo;
  Application.Run;
extremo.
Otras soluciones  
 
programming4us programming4us