Splash Screen

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