Ver Mensaje Individual
  #3  
Antiguo 28-07-2010
Avatar de Ñuño Martínez
Ñuño Martínez Ñuño Martínez is offline
Moderador
 
Registrado: jul 2006
Ubicación: Ciudad Catedral, Españistán
Posts: 6.000
Reputación: 25
Ñuño Martínez Tiene un aura espectacularÑuño Martínez Tiene un aura espectacular
Jac fcc: creo que has tenido un despiste, en lugar de "EXCEPT" quizá debiste poner "FINALLY". De lo contrario únicamente eliminaría la ventana si se lanza una excepción, pero si todo funcionara correctamente entonces nunca la eliminaría, ocupando cada vez más memoria y generando algún que otro problema más, dependiendo de lo que haga la propia ventana.

Por otro lado, en vez de usar "Application.CreateForm" mejor, quizá, crearla diréctamente. Vamos, que yo lo haría así:
Código Delphi [-]
PROCEDURE TForm1.Button1Click (Sender: TObject);
BEGIN
     TRY
        Form_ventanaEmergente := TForm_ventanaEmergente.Create (SELF);
        Form_ventanaEmergente.ShowModal;
     FINALLY
        Form_ventanaEmergente.Free;
     END;
END;
__________________
Proyectos actuales --> Allegro 5 Pascal ¡y Delphi!|MinGRo Game Engine
Responder Con Cita