Cómo realizar un Splah Screen

Artículo por Club Developers · 31 December 2005

5540 vistas

Estas forms que aparecen nada más arrancar la aplicación, con el tÃpico mensaje 'cargando', se denominan Splash Screen.

Podemos ver una en la aplicación de demo que viene con Delphi:, que se encuentra en: ..\DEMOS\DB\MASTAPP

Básicamente las operaciones a realizar son estas:

- Crear un form. (En el ejemplo, es la SplashForm)

- No incluirlo en la lista de forms que se autocargarán al arrancar la aplicacion.
Esto lo haces en el IDE, yendo a: Project|Options.
Ahà encontraremos dos listas: la 'Auto-Create forms' y la 'Available Forms'. Tenemos que poner el form de Splash en la lista 'Available Forms', y con esto conseguiremos que no se autocree.

- Cambiar el código fuente del proyecto para mostrar el splash.
Para ello, primero accedemos al código del proyecto mediante el menú View|Project Source.

Ahora sólo hay que cambiar el código haciendo que se cree y se muestre la ventana Splash antes de que se cree ninguna otra cosa (ya que es ahà donde la aplicación tardará).

Miremos como lo hace el ejemplo indicado:



delphi
  1. begin 
  2.    SplashForm := TSplashForm.Create(Application);
  3.    SplashForm.Show;
  4.    SplashForm.Update;
  5.    Application.Title := 'Marine Adventures Order Entry';
  6.    Application.HelpFile := 'MASTAPP.HLP';
  7.    Application.CreateForm(TMastData, MastData);
  8.    Application.CreateForm(TMainForm, MainForm);
  9.    ...
  10.    SplashForm.Hide;
  11.    SplashForm.Free;
  12.    Application.Run;
  13. end;