¿Problema de memoria?

[burasu]

Mi metodo es el siguiente:

        with TForm_Pantalla.Create(self) do begin
                if ShowModal = mrOk then begin
                        // Si realizo alguna operación despues de aceptar la otra 
                        // pantalla añado el código aquí
                end
                else begin
                        // Lo mismo si cancelo.
                end;
                Free;
        end;

Con esta forma evito crear y cerrar y terminar perdiendome. Así siempre que abro la ventan se que terminaré cerrandola.

[[Lepe]]

Empezado por burasu

  try
        with TForm_Pantalla.Create(self) do begin
                if ShowModal = mrOk then begin
                        // Si realizo alguna operación despues de aceptar la otra 
                        // pantalla añado el código aquí
                end
                else begin
                        // Lo mismo si cancelo.
                end;
   finally
                Free;
   end;
        end;

He añadido el try finally para hacer más seguro el bloque. Si hay algún tipo de excepción mientras se muestra la ventana, que libere la ventana.

Y supongo que la variable que crea Delphi en la unidad de la ventana

Código Delphi [-]
var Form_Pantalla: TForm_Pantalla;

la eliminarás, ya que no la usas, es un puntero, no ocupa mucho espacio en memoria mientras que no la instancies, pero si tienes muchas ventanas, se van sumando los 4 bytes de cada puntero.

El método de chicolita lo veo muy correcto.

Saludos

[__cadetill]

Pues con permiso del personal, yo añadiré un try...except al código propuesto

Código Delphi [-]
resourcestring
  errCreatingForm = 'Error en la aplicación. Mensaje de error'#13#13'%s';

implementation

..............

Form1 := TForm1.Create(Self);
try
  try
    Form1.ShowModal;
  finally
    FreeAndNil(Form1);
  end;
except
  on E: Exception do
    Application.MessageBox(PChar(Format(errCreatingForm, [E.Message])), 'Atención', MB_OK);
end;

Es que me gusta ver el tipo de excepción lebantada en una pantallita controlada po mi, manias de uno, ya véis

[burasu]

Si efectivamente Lepe, esta variable

var Form_Pantalla: TForm_Pantalla;

la elimino, ya que no la utilizo para nada.

Yo tambien utilizaba el metodo de chicolita, pero digamos que tuve una mala experiencia por problemas de memoria en un proyecto, y me asesoraron que ese metodo no era muy correcto ¿?¿? así que utilizo este otro y así siempre me aseguro que no dejo la Form alojada en memoria una vez cerrada.