Ver Mensaje Individual
  #7  
Antiguo 30-10-2007
Avatar de Lepe
[Lepe] Lepe is offline
Miembro Premium
 
Registrado: may 2003
Posts: 7.424
Reputación: 29
Lepe Va por buen camino
Código Delphi [-]
procedure TForm1.Button1(click)
var
   with TOtraVentana.Create(Self) do

Al crear la ventana así, estás diciendo que el dueño es "Self", y es equivalente a decir que será la ventana donde está el botón. Al cerrar la ventana de tipo TForm1, se cerrará todas las ventanas que has creado en ese bucle for.


También puedes crear la ventana así:
Código Delphi [-]
procedure TForm1.Button1(click)
var
   with TOtraVentana.Create(nil) do
En este caso asegúrate de poner action := cafree; en el evento OnClose de TOtraVentana, al cerrarla, se libera de RAM. En este caso, llamando por código al método Close, también se libera de RAM.

Por cierto dec, en tu mensaje anterior has dicho "padre" (que podría confundirse con la propiedad Parent), estoy seguro que has querido decir "dueño", (del parámetro AOwner).

Saludos
__________________
Si usted entendió mi comentario, contácteme y gustosamente,
se lo volveré a explicar hasta que no lo entienda, Gracias.
Responder Con Cita