Ver Mensaje Individual
  #8  
Antiguo 06-05-2006
serhasae serhasae is offline
Miembro
 
Registrado: jun 2004
Ubicación: España
Posts: 117
Reputación: 22
serhasae Va por buen camino
Solucion

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}
SplashScreen:=TSplashScreen.Create(Application);
Splashscreen.show;
SplashScreen.update;

{Creamos la form principal}
Application.createform(MainForm,MainFormUnit);

MainFormUnit.SplashScreenHandle:=SplashScreen.handle;
{Aqui el resto de tu projecto...} end.

Y al Mostrar el Form:
SendMessage(SplashScreenHandle,WM_CLOSE,0,0);

Sacado del Rinconcito de Delphi.

Última edición por serhasae fecha: 06-05-2006 a las 01:04:44.
Responder Con Cita