Cerrar Formulario

[Red_Leon]

Empezado por rgstuamigo

Segun veo puede que el problema vaya por el Timer que tienes corriendo en tu formulario de espera, para lo cual seria muy provechoso si mostraras el código que tienes en el evento OnTimer de tu Timer..

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.

[salvica]

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?

[Red_Leon]

Antes de cerrar el formulario, paro el Timer y luego llamo a .Close y no se cierra. Ese es el problema original, pero que ya os digo con lo del .Free se solucionaria.