miércoles, 15 de octubre de 2008

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

SplashScreen 

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);

2 comentarios:

Unknown dijo...

esta interesante, pero no lo pude implementar, me da error en el var que declaro publico.

Mabx Team!! dijo...

lo mismo digo, no me deja encajar esa variable publica, no podrian decirnos cual es el error?