Cerrar Splash Imposible ...

[[Lepe]]

Pues a mí me falta el Application.Run

saludos

[[Lepe]]

Es obvio que debe estar.... pero ¿donde? jejeje, si lo tenías antes del Splash.Free, era fácil la respuesta

En principio, sustituyo el Application.ProcessMessages por un Splash.Update. Como la aplicación no está corriendo al completo, no me queda claro si va a procesar los mensajes bien.

Las lineas:
Splash.Close;
Splash.Free;
Splash:=nil

las sustituyo por FreeAndNil(Splash), es exactamente lo mismo.

Prueba y me cuentas por fa.

Saludos

[serhasae]

A ver lepe he probado lo que me has dicho, con iguales resultados, no se cierra, lo que pasa es que se queda detras y no me habia fijado hasta ahora yo creia que era debido al trayicon que habia añadido pero al mirar codigo antiguo me he dado cuenta que nunca lo cerro hasta que se cierra totalmente la aplicación. Simplemente al ponerme delante la form principal pues quedaba detras y no lo veia...

Bueno alguna sugerencia a que es raro que no lo cierre. Saludos.

[serhasae]

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.

[protector2020]

este es el codigo de mi proyecto donde uso una splashscreen, a mi me funciona bien. lo aprendi de Trucomania.

program CdAPProy;

uses
  Forms,
  CdAPForma in 'CdAPForma.pas' {Form1},
  CdAPDatos in 'CdAPDatos.pas' {DataModule2: TDataModule},
  Splash in 'Splash.pas' {Form2};
...

{$R *.res}

begin
  Form2:=TForm2.Create(Application);
  Form2.Show;
  Form2.Update;
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TDataModule2, DataModule2);
...
  Form2.Hide;
  Form2.Free;
  Application.Run;
end.

adicionalmente agrego el codigo de creacion de la splash, por si es de ayuda.

procedure TForm2.FormCreate(Sender: TObject);
begin
Self.Image1.Left:=0;
Self.Image1.Top:=0;
Self.Image1.Picture.LoadFromFile('splash.jpg');
Self.Image1.AutoSize:=True;
Self.ClientHeight:=Self.Image1.Height;
Self.ClientWidth:=Self.Image1.Width;
Self.BorderStyle:=bsNone;
Self.Position:=poDesktopCenter;
end;

espero que les sea de ayuda. saludos.

[mr_mustard]

A mi me pasó algo parecido:

begin
Application.Initialize;
Application.Title := 'Project1';
SplashForm := TSplashForm.Create(Application);
SplashForm.Show;
SplashForm.Update;
Application.CreateForm(TForm1, Form1);
.
.
.

Application.CreateForm(TForm3, Form3);
Application.CreateForm(TSplashForm, SplashForm);
SplashForm.Hide;
SplashForm.Free;
Application.Run;
end.

El problema era la linea roja, por que si lo estoy creando, ya no necesita ser creado de nuevo.