FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
||||
|
||||
Un comentario, una manera mas adecuada de hacer este tipo de animaciones es incorporando un componente Timer (ficha "System") en tu formulario. En el evento OnCreate del formulario colocar los valores iniciales:
Código:
procedure TForm1.FormCreate(Sender: TObject); begin ProgressBar1.Position := 0; ProgressBar1.Step := 1; ProgressBar1.Max := 100; ProgressBar1.Min := 0; Timer1.Interval:=100; //Aquí defines que tan rapido quieres que se realize la cuenta end; Código:
procedure TForm1.Timer1Timer(Sender: TObject); begin Label1.Caption := IntToStr(ProgressBar1.Position); ProgressBar1.StepIt; If ProgressBar1.Position>99 then ProgressBar1.Step := -1; If ProgressBar1.Position<1 then ProgressBar1.Step := 1; end; Para controlar cuando iniciar y detener la animación usa la propiedad Enabled del Timer. Saludos. Última edición por Magician^ fecha: 04-04-2004 a las 23:41:18. |
#2
|
|||
|
|||
Oh gracias, la verdad que no tenia ni idea de que se pudiera hacer asi, es que no tengo mas de un mes que me inicie en esto de Delphi y apenas voy conociendo los comandos.
|
#3
|
||||
|
||||
Wop!
Hola aragorneuf, como veo que eres nuevo por estas lares (tú mismo lo dices ), me gustaría darte la bienvenida al club, espero que te veamos mucho por aquí a partir de ahora. También me gustaría hacerte un par de sugerencias, en primer lugar que le eches un vistazo a la guía del club (ver firma), en ella se dan unas cuantas recomendaciones sobre cómo redactar los mensajes para que todos estemos más cómodos. Uno de estos consejos es poner títulos más descriptivos en los mensajes, para que otros usuarios con el mismo problema puedan buscar la solución más cómodamente. La otra sugerencia es que, cuando pongas código, lo encierres entre etiquetas "[code]", para que se pueda leer indentado (tal y como han echo los compañeros en este mismo mensaje). Nada más, es normal que si empiezas a entrar ahora en el foro comentas estos "errores", ya que todos lo hemos hecho, pero con un poquito de voluntad de cada uno, la convivencia en el foro es mucho más agradable.
__________________
E pur si muove |
#4
|
|||
|
|||
Cita:
|
|
|
|