Poner splash screen con progress bar en delphi

Iniciado por ANTRAX, Febrero 24, 2010, 04:54:23 PM

Tema anterior - Siguiente tema

0 Miembros y 2 Visitantes están viendo este tema.

Febrero 24, 2010, 04:54:23 PM Ultima modificación: Abril 15, 2013, 11:24:33 PM por Expermicid
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.