Ver Mensaje Individual
  #5  
Antiguo 16-05-2006
XaRz XaRz is offline
Miembro
 
Registrado: ene 2006
Posts: 13
Reputación: 0
XaRz Va por buen camino
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
Responder Con Cita