Al fin he logrado algo parecido a lo que tenia en mente.
Dejo que el còdigo "hable":
Código:
try
splash:=WinformSplash.TWinFormSplash.Create ;
Splash.Show;
Sleep(100);
Splash.ExecLoop(0);
Splash.Update;
sleep(1000);
Splash.ExecLoop(1);
Splash.Update;
sleep(1000);
Splash.close;
Splash.Hide;
finally
Splash.Free;
end;
Application.Run(Main_Window.TWinForm_Principal.Create);
Eso es lo que llama al formulario del Splash, después implemento el splash cómo sigue:
Código:
procedure TwinFormSplash.ExecLoop(integ:integer);
begin
Sleep(100);
Progressbar1.PerformStep;
if integ=0 then
begin
Progressbar1.PerformStep;
label2.Text:='Llegint dades...' ;
end;
Progressbar1.PerformStep;
if integ=1 then
begin
Progressbar1.PerformStep;
label2.Text:='Inicialitzant Raport Expert';
end;
Progressbar1.PerformStep;
end;
Con esto sólo quiero dejar espacio a los procedures que se encargarán de comprovar que la base de datos de la red està disponible y que la configuración se ha leído. Aún dichos procedures no están implementados por lo que los sleep y los strings hacen de "fake" a lo grande. Lo suyo será más tarde cuando el programa verifique las dos condiciones expuestas antes...
Pero grácias de todos modos