comment
IRC Chat
play_arrow
Este sitio utiliza cookies propias y de terceros. Si continúa navegando consideramos que acepta el uso de cookies. OK Más Información.

Poner splash screen con progress bar en delphi

  • 0 Respuestas
  • 2886 Vistas

0 Usuarios y 1 Visitante están viendo este tema.

Conectado ANTRAX

  • *
  • Administrator
  • Mensajes: 5388
  • Actividad:
    36.67%
  • Reputación 31
  • ANTRAX
    • Ver Perfil
    • Underc0de
    • Email
  • Skype: underc0de.org
  • Twitter: @Underc0de
« en: Febrero 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:

Código: Delphi
  1. Application.Initialize;
  2.   SplashForm := TSplashForm.Create(Application);
  3.   SplashForm.Show;
  4.   SplashForm.Update;
  5.   SplashForm.progressbar1.StepIt;
  6.   Application.CreateForm(tform1,form1);
  7. //despues de que se cree cada form dile
  8. //  al progrees bar que aumente con el comando stepit;
  9.   SplashForm.progressbar1.StepIt;
  10.   Application.CreateForm(tform2,form2);
  11.   SplashForm.progressbar1.StepIt;
  12.   Application.CreateForm(tform3,form3);
  13.   SplashForm.progressbar1.StepIt;
  14.   SplashForm.Hide;
  15.   SplashForm.Free;
  16.   Application.Run;
  17. end.
  18.  

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.



« Última modificación: Abril 15, 2013, 11:24:33 pm por Expermicid »


 

¿Te gustó el post? COMPARTILO!



[Sintaxis general de Delphi] By: Geek Lord Venezuela [R00t] Team

Iniciado por ANTRAX

Respuestas: 0
Vistas: 1982
Último mensaje Febrero 24, 2010, 04:35:15 pm
por ANTRAX
Eliminar acentos y otros agregados de un caracter/cadena Delphi 2009

Iniciado por ANTRAX

Respuestas: 0
Vistas: 3126
Último mensaje Febrero 24, 2010, 04:57:14 pm
por ANTRAX
1er troyano en Delphi By: Geek Lord Venezuela [R00t] Team

Iniciado por ANTRAX

Respuestas: 0
Vistas: 3254
Último mensaje Febrero 24, 2010, 04:34:48 pm
por ANTRAX
[Delphi] Creacion de un Server Builder con recursos

Iniciado por BigBear

Respuestas: 1
Vistas: 1410
Último mensaje Marzo 09, 2015, 07:56:20 pm
por Flemon
[Delphi] Project Arsenal X 0.2 (Regalo de navidad)

Iniciado por BigBear

Respuestas: 2
Vistas: 2574
Último mensaje Diciembre 28, 2015, 10:27:44 am
por BigBear