This site uses cookies own and third. If you continue to browse consider to accept the use of cookies. OK More Info.

Poner splash screen con progress bar en delphi

  • 0 Replies
  • 4731 Views

0 Members and 1 Guest are viewing this topic.

Offline ANTRAX

  • *
  • Administrator
  • Posts: 5854
  • Actividad:
    80%
  • Country: ar
  • Reputación 43
  • ANTRAX
  • Twitter: @Underc0de
    • View Profile
    • Underc0de
    • Email

Poner splash screen con progress bar en delphi

  • on: February 24, 2010, 04:54:23 pm
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:

Code: (delphi) You are not allowed to view links. Register or Login
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.



« Last Edit: April 15, 2013, 11:24:33 pm by Expermicid »