Accder a propiedad Text de un label de otro form!

[DarKraZY]

Hola XaRz!

El tiempo que tarde en mostrarse el splash va a depender de la velocidad del procesador, ya que tardará "1000000" vueltas. Esto en un PC lento tardará mucho, y en un PC rápido, pues será rápido.

Yo te recomiendo algo como esto:

Código Delphi [-]
procedure CargarPrograma;
var
  Splash: WinformSplash.TWinFormSplash;
begin
  Splash := WinformSplash.TWinFormSplash.Create; // form del splash
  try
    Splash.Show;
    Splash.Update;
    Splash.SetTextoCargandoForms; // procedure que va canviando valores del label;
    CargarForms; // procedure que carga los forms
    Splash.SetTextoCargandoInterfaces; // procedure que va canviando valores del label;
    CargarInterfaces;
    { ... } // Aquí iría todo lo que quieras cargar, primero actualizas el splash, y después lo ejecutas
    Splash.Hide;
  finally
    Splash.Free;
  end;

  Application.Run(Main_Window.TWinForm_Principal.Create); // ventana principal del programa
end;

[XaRz]

Ok, pero no veo como retrasas con pausas el splash. de acuerdo que es muy chapucero como lo he hecho yo pero almenos puedo mostrar el splash según vaya aumentado el valor del for. Como lo haces para que el splash se mantenga lo suficiente para que se pueda ver?

Además veo que tienes los procedures de cargar forms y cargar interfaces...yo nunca cargo nada en el main (programa principal) simplemente el main carga el contendor MDI y por menus voy cargando cada form cada vez. Hay alguna forma de pre cargar los procesos? cómo?

(lo siento soy muy novatillo en esto...)

[DarKraZY]

Lo de las pausas y retrasos... como usuario y también programador no te lo recomiendo. ¿Por qué esperar más de lo necesario a que un programa se cargue? Porque no es que quieras mostrar una información, sino que se está cargando el programa.

Imagina que Borland hubiese decido que el tiempo de carga es de 1 minuto para Delphi 7, en los tiempos en que sacaran la versión. Y ahora con equipos muchos más potentes, mejor sistema operativo, etc. el tiempo de carga fuese el mismo. ¿No te daría rabia estar esperando?

Yo he sugerido "CargarForms" y "CargarInterfaces" porque pensaba que era lo que hacías. Pero es mucho mejor ir creando, como bien haces, en los menús.

[XaRz]

Al fin he logrado algo parecido a lo que tenia en mente.
Dejo que el còdigo "hable":

 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:

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