poner splash screen con progress bar en delphi
 

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.:D

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

muchas formas
 

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.

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

no solo Forms
 

¡¡¡¡¡¡¡¡¡¡¡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.

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