Ver Mensaje Individual
  #7  
Antiguo 05-07-2005
Avatar de Lepe
[Lepe] Lepe is offline
Miembro Premium
 
Registrado: may 2003
Posts: 7.424
Reputación: 28
Lepe Va por buen camino
Para mi que no lo ha entendido

Si tienes declarado algo así:
Código Delphi [-]
 var Form1 :TForm1
implementation

No puedes crear la ventana con:
Código Delphi [-]
   Form1.Create(Self)

porque la primera vez que se ejecute ese código, Form1 apunta a nil, y estarás atravesando un puntero nulo al intentar acceder al método Create.

En algunos casos, puedes hacer esto:
Código Delphi [-]
with Tform1.Create(Self) do
try 
....

finally 
 Free;
end;
En este caso no se utiliza la variable Form1 para nada, pero como ves, se usa un try ... finally, para destruir el objeto al final.

Lo normal es crearlo así:
Código Delphi [-]
  Form1 :=  TForm1.Create(XXX)

XXX será el que se encargue de liberar esa ventana, si despues más abajo haces una llamada a Form1.Free, o bien freeandnil(Form1), entonces puedes sustituir XXX por nil (es decir, nadie se encarga de liberar la ventana.

Imagina que Form2, es la ventana de contactos, y al hacer doble clic, se abre el Form1 con la información detallada, Si quieres que al cerrar la ventana de contactos, se cierre automaticamente la ventana de información detallada, puedes poner
Código Delphi [-]
  Form1 :=  TForm1.Create(Form2)

Si una ventana va a estar creada durante toda la vida de la aplicación, puedes usar:
Código Delphi [-]
Application.CreateForm(TForm1, Form1);

Por tanto, tienes 3 métodos para crear ventanas, cualquier otro método que uses, tarde o temprano, como ya te han dicho, fallará.

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