Mantener una Spash Screen unos segundos tras cargar la aplicación  

Enviado Por: Q3 Team
Web : http://www.q3.nu
Email: dlib@q3.nu
Fecha: 24/07/99

Truco accedido 86 veces

 


En otro de los trucos tienes un ejemplo de 'Splash Screen'. Este es una ampliación para hacer que la Splash Screen desaparezca unos segundos después de que la form principal se haya hecho visible.

En tu form principal, declara una variable pública llamada SplashScreenHandle:


 	var
 	    SplashScreenHandle:integer;



En el fuente del projecto, añade una sección var como la siguiente:


 	VAR
 	    SplashScreen:TSplashScreen;



Dentro de la sección begin-end, añade el siguiente código al principio:


 Begin
     {Mostramos la Splash Screen}
     {Show the splash screen}
     SplashScreen:=TSplashScreen.Create(Application);
     Splashscreen.show;
     SplashScreen.update;
     {Creamos la form principal}
     {Create the main form}
     Application.createform(MainForm,MainFormUnit);
     MainFormUnit.SplashScreenHandle:=SplashScreen.handle;
     {Aqui el resto de tu projecto...}
     {rest of your code goes here....}
 end.



Entonces, en tu form principal, mediante un timer, ejecutamos éste código para cerrar la Splash Screen:


     SendMessage(SplashScreenHandle,WM_CLOSE,0,0);