Cita:
Empezado por Red_Leon
Aqui va el código
Código Delphi [-] procedure TForm_Espera.Timer_CambioTimer(Sender: TObject); begin {Aumento del progreso de la 'ProgressBar_Espera'} self.ProgressBar_Espera.StepIt; {Se comprueba si ha llegado al límite superior} if(self.ProgressBar_Espera.Position=self.ProgressBar_Espera.Max) then begin {Reseteo de la posición de la 'ProgressBar_Espera'} self.ProgressBar_Espera.Position:=self.ProgressBar_Espera.Min; end; end;
De momento utilizo el .Create y .Free con el formulario y me va perfecto, pero todavia no he tenido tiempo de porque con .Close no se cerraba, me ha sido más rápido realizar el cambio que ver el porque.
|
Con esto solo mueves la ProgressBas,
pero no se para, por lo que si intentas cerrar el Form te va a dar un error
¿es éste el problema?