poner splash screen con progress bar en delphi

[Crashthebig]

si estas usando delphi 7 debes ir al menu project y en la opcion view source haz clic para que veaz el codigo del projecto, crea un nuevo form y cambiale ña propiedad name a SplashForm y ponle un componente ProgressBar, ve de nuevo al menu project y haz clic en la opcion que dice Options y debes poner la SplashForm en la lista que dice avaible form,
luego ve al source code del projrcto y escribe esto:

Código Delphi [-]
Application.Initialize;
  SplashForm := TSplashForm.Create(Application);
  SplashForm.Show;
  SplashForm.Update;
  SplashForm.progressbar1.StepIt;
  Application.CreateForm(tform1,form1);//despues de que se cree cada form dile
  al progrees bar que aumente con el comando stepit;
  SplashForm.progressbar1.StepIt;
  Application.CreateForm(tform2,form2);
  SplashForm.progressbar1.StepIt;
  Application.CreateForm(tform3,form3);
  SplashForm.progressbar1.StepIt;
  SplashForm.Hide;
  SplashForm.Free;
  Application.Run;
end.

de esta forma cada vez que se cree un form el progressbar aumentara su valor de forma automatica, recureda poner el codigo SplashForm.progressbar1.StepIt; despues de que se cree cada form el procedimiento stepit es el que hace que el progreesbar aumente.

espero que les halla servido de algo, gracias.

[[Héctor Randolph]]

Hola Crashthebig !

Mi sugerencia es que incluyas este código en la sección de trucos del club, de esta forma estaría disponible para un mayor número de personas.

Saludos

[Ing_Fajardo]

Esto solo funcionaria para mostrar el progreso de creacion de formas, pero una buena practica indica que las formas las debes de crear segun las necesites.

A menos que asumas que todos tus clientes tienen una PC potente y con mucha memoria.

[suseLinux]

Vamos a ver que tal anda el truco,
Se agradece.
Salu2

[ixMike]

¡¡¡¡¡¡¡¡¡¡¡Hola!!!!!!!!!!!!

Eso está bastante bien. Pero a veces la necesidad de la ProgressBar es porque el arranque del programa es más o menos lento, y esto suele deberse a que estás cargando una base de datos, o analizando archivos, o registros, u obteniendo datos del PC, o un millón de cosas más que necesita un programa al arrancar.

Quiero decir que lo bueno es (en tiempo de diseño) asignar a la propiedad Max del ProgressBar la cantidad de pasos que va a tener el programa al arrancar (crear FormXXX, analizar archivo1, archivo2....) y llamar al StepIt cada vez que se haya concluído uno de estos pasos.


Y sobre notas estéticas, la Splash se sugiere estar centrada, sin bordes de ningún tipo, con una imagen de fondo, algún dato del programa (nombre, organización, etc) y en el evento OnCloseQuery asignar a la variabla CanClose el valor de False (para evitar que el usuario cierre con Alt+F4 cuando no debe) y para cerrarla en vez de llamar a Close, llamar a Destroy o a Free (aunque el CanClose también podría hacer alguna comprobación del estado del programa).

En fin, que las posibilidades son muchíiiiiiiiiiiiiiiiiiiiiiiiisimas.


Saludos a todo el foro.

[suseLinux]

Muy bueno el truco, con esto además pude controlar el arranque de algunas variable globales dentro del archivo del proyecto...

Muy agradecido por el gran aporte