Cita:
Empezado por burasu
Código:
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