Cerrar Splash Imposible ...

[serhasae]

No Consigo cerrar un Splash desde que puse el codigo para minimizar la pantalla principal como un icono en la barra de tareas al lado del reloj (trayicon), el Splash pasa de las lineas de cierre, he probado con un componente echo y con el truco de trucomania con iguales resultados:

splash.close;
splash.free;
splash:=nil;


A que puede ser debido que el Splash siga visualizandose aunque yo lo cierre
cuando se muestra el form principal... Gracias.

[delphi.com.ar]

¿Cómo lo estas mostrando?...

[andressanchez]

He utilizado el truco #32 de trucomania y me funciona a la perfección. Te recomiendo que hagas una revisión del código, te dejo el link para que lo verifiques http://www.q3.nu/trucomania/ftesp.html.

[serhasae]

A ver utilize el truco de trucomania no para mostrar el splash sino para minimizar la ventana al lado del reloj (trayicon).

A ver tengo un formulario llamado Splash y ahi tengo una barra progressbar.

En el principal el primero que se crea tengo:

Código Delphi [-]
 
var
Splash:TSplash;
 
Application.Initialize;
 
  Application.CreateForm(TPasswordDlg, PasswordDlg);
  Application.CreateForm(TFPass, FPass);
  Application.CreateForm(TFQuickR, FQuickR);
  Application.CreateForm(TFBRNomNino, FBRNomNino);
  Application.CreateForm(TFSelec, FSelec);

  Splash:=TSplash.Create(nil);
  Splash.Gauge.Position:=0;
  Splash.Gauge.Step:=6;
  Splash.Show;
  Application.ProcessMessages;

  Application.CreateForm(TFPrincipal, FPrincipal);
  Application.CreateForm(TFMes, FMes);
  Application.CreateForm(TFRecibi, FRecibi);
  Application.CreateForm(TFReciMes, FReciMes);
  Application.CreateForm(TFBusRecibos, FBusRecibos);
  Application.CreateForm(TFBusRecibo, FBusRecibo);
  Application.CreateForm(TFBRecNom, FBRecNom);
  Application.CreateForm(TFBRecibos, FBRecibos);
  Application.CreateForm(TRPagados, RPagados);

y mas abajo tengo:

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

Y Luego el Application.Run que era obvio por eso en una primera instancia no lo puse.

[[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