Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > OOP
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 16-05-2006
XaRz XaRz is offline
Miembro
 
Registrado: ene 2006
Posts: 13
Poder: 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
Respuesta



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Guardar lo que tengo en un Edit1.text y edit2.text en una base de datos firebird jorgeluisc Conexión con bases de datos 1 23-04-2006 18:29:28
Imposible hacer visible un form desde otro form SMTZ .NET 13 16-01-2006 21:41:08
obtener valor de otro form maruenda Varios 10 02-12-2004 21:06:01
ver una variable de otro form mainau Varios 3 07-03-2004 12:55:14
Componentes Visuales, como propiedad de otro Componente ingacg OOP 5 01-07-2003 23:10:39


La franja horaria es GMT +2. Ahora son las 08:35:05.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi