Splash Screen

[jmedina]

Que tal:

Saludos a los del foro alguien me puede ayudar como realizar o utilizar el codigo numero 32 de trucomania no se ni como usarlo, perdon soy principiante, lo he realizado pero se activa y se cierra inmediatamente es decir mi splash es muy rapida, como hacer para qeu retarde unos 5 u 8 segundos :

begin
SplashForm := TSplashForm.Create(Application);
SplashForm.Show;
SplashForm.Update;
SplashForm.Hide;
SplashForm.Free;
Application.Run;

uso este codigo que esta en el truco pero no tarda mucho y se cierra luego luego como poderle hacer

Gracias espero su ayuda y asi mismo donde es que se pone exactamente, de hecho lo puse en OnCreate de mi forma principal estoy bien ?

o bien si me pueden guiar como hacerlo mas practico

gracias

Saludos
Jmedina

[delphi.com.ar]

Empezado por jmedina

uso este codigo que esta en el truco pero no tarda mucho y se cierra luego luego como poderle hacer

Si quieres que tarde puedes ponerle un retardo.

http://www.clubdelphi.com/foros/show...&threadid=2954

[jmedina]

Perdon DELPHI.COM.AR, la verdad no se ni donde meterlo , me podrias ayudar a hacerlo, yo lo puse en el Oncreate de la forma principal que estoy manejando pero sigue apareciendo rapido y se desaparece, como es que le pueda poner el retardo, gracias y disculpas son principiante.

Saludos

[ibuser]

espero que te sirva mi sugerencia yo tambien use ese truco de trucomania pero yo lo use al abrir 5 bases de datos y eso retardaba el splashform lo que te sugiero es que uses un timer antes de cerrar el splasform

AQUI BORRA LAS INSTRUCCIONES DE ESCONDER EL SPLASHFORM
begin
SplashForm := TSplashForm.Create(Application);
SplashForm.Show;
SplashForm.Update;
end;
AGREGAS EN LA PROPIEDAD INTERVAL DEL TIMER1 LOS SEGUNDOS QUE QUIERAS RETARDAR EL SPLASHFORM;
EN EL EVENTO ONTIMER DE TIMER1 AGREGAS EL CODIGO PARA ESCONDER EL SPLASFORM
procedure TForm1.Timer1Timer(Sender: TObject);
begin
SplashForm.Hide;
SplashForm.Free;
Application.Run;

end;

[santana]

Otra opción es desactivar el Timer cuando haya pasado el tiempo que quieres que permanezca la presentación en pantalla, así, puedes meter todo el código en el dpr de este modo:

Código Delphi [-]
    with FSplash do begin
            show; 
            update; 
            while timer1.enabled do
                   application.processMessages; 
            hide; 
            free; 
   
     end;

[jmedina]

Gracias a todos lo que me ayudaron, ya quedo lo de el Splash funciona a la perfeccion

Saludos

[protector2020]

Empezado por santana

Otra opción es desactivar el Timer cuando haya pasado el tiempo que quieres que permanezca la presentación en pantalla, así, puedes meter todo el código en el dpr de este modo:

me sirvio mucho este codigo. para dejarlo a mi gusto:
cada vez que se abre una tabla, incremento la progresbar.
con este codigo, antes de cerrar la forma, se termina de llenar la progreessbar.
el intervalo del timer es corto, para que no se quede abierta la splash mucho tiempo despues de terminar de cargar lo que haga falta.
salu2.