Problema de violación de acceso

[Sadistyk]

Hola. Soy nuevo en delphi, así que tengan un poco de compasión. Teno dos formularios, el primero que es el menú principal, y el segundo que es para otra cosa. En el menú principal tengo un botón para ir al otro formulario. Eso anda bien. El problema está que cuando cierro el segundo formulario y vuelvo a entrar desde el menú principal el formulario quedó como estaba cuando lo cerré, o sea, que todos los componentes no volvieron a su estado original. El comando que uso para abrir el segundo formulario es el 'Show' y para cerrar el segundo es el 'Close'.
Estuve leyendo por ahí que esto se debe a que no se libera la memoria del formulario (o por lo menos eso fue lo que entendí) y que tenía que poner 'Free' o 'Release' en el evento 'OnClose' del formulario. Intenté con los dos y cuando quiero volver a entrar desde el menú me tira el error de violación de acceso. ¿Cómo puedo hacer para que esto ande?

[[fer21unmsm]]

Hola, como dices, puede ser un problema de liberación del formulario, o de seguro lo quieres mostrar sin haberlo cargado, puedes poner la parte de tu código donde llamas al form2, y el codigo con que lo cierras?

Saludos

[Sadistyk]

Sólo tengo dos lineas en el botón para llamar al 2do formulario:

form1.Enabled := false;
form2.Show;

[dec]

Hola,

Deberías asegurarte, antes de ejecutar el método "Show" de "form2", de que el propio "form2" existe. Esto puedes hacerlo tal que así:

Código Delphi [-]
if not Assigned(form2) then
  form2 := TForm2.Create(Self);
form2.Show();

Empero, por lo que haces con "form1", creo que acaso te interesaría más usar el método "ShowModal" en lugar de "Show". Siendo así te sería más sencillo incluso hacerte cargo de la variable "form2", incluso no te sería necesario:

Código Delphi [-]
with TForm2.Create(Self) do
begin
  try
    ShowModal();
  finally
    Free;
  end;
end;

[Neftali [Germán.Estévez]]

Empezado por Sadistyk

Estuve leyendo por ahí que esto se debe a que no se libera la memoria del formulario (o por lo menos eso fue lo que entendí) y que tenía que poner 'Free' o 'Release' en el evento 'OnClose' del formulario. Intenté con los dos y cuando quiero volver a entrar desde el menú me tira el error de violación de acceso. ¿Cómo puedo hacer para que esto ande?

Creo que lo que está pasaando es que no destruyes el formulario, sólo lo ocultas.
En el evento OnClose del segundo formulario utiliza:

Código Delphi [-]
  Action := caFree;

Si es lo que pienso, con eso debería bastar.
Para llamarlo:

Código Delphi [-]
  Form2.Show;

Y cuando quieras cerrarlo:

Código Delphi [-]
  Close;

La línea de arriba se encargará de la libreración.

[Sadistyk]

Probé lo que me dijo Dec y lo que me dijo Neftali y todavia me sigue tirando el error.

[dec]

Hola,

Da todos los datos que puedas: copia aquí el mensaje del error tal como te aparece; copia también el código fuente que usas para llamar al formulario; si hay "algo" en el evento "OnClose" del formulario que muestras cópialo también aquí. Lo que no puedes pretender es que adivinemos qué puede estar pasando... así que cuanta más información proporciones más posibilidades tienes de que alguien pueda echarte una mano.

PD. De hecho ya hemos tratado de adivinar el problema: te hemos referido las formas que hay de mostrar un formulario; te hemos indicado que hay que comprobar si un formulario realmente existe antes de ejecutar cualquiera de sus métodos, etc., etc. Tal vez podrías tratar de reproducir el error en una aplicación nueva, de modo que puedas adjuntarla aquí para que alguien pueda echar un vistazo.

[Sadistyk]

El formulario principal se llama 'Tprincipal' y el que me tira el error al abrir la segunda vez es 'Tpanttruco'.

El error que me tira es:
'Access violation at address 00000000. Read of address 00000000.'
Y el programa sigue andando después de que me sale el error. O sea, no habre el segundo formulario, se queda en el primero, pero sigue andando.

El código para llamar el segundo formulario:
procedure Tprincipal.jnuevoClick(Sender: TObject);
begin
panttruco.Show;
end;

El código para cerrar el segundo formulario:
procedure Tpanttruco.btnAbandonarClick(Sender: TObject);
begin
panttruco.Close;
end;

El evento 'OnClose' del segundo formulario:
procedure Tpanttruco.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action := caFree;
end;

[dec]

Hola,

Prueba con esto.

Código Delphi [-]
procedure Tprincipal.jnuevoClick(Sender: TObject);
begin
  if not Assigned(panttruco) then
    panttruco := Tpanttruco.Create(Self);
  panttruco.Show;
end;

[Sadistyk]

No, no anda. Acabo de hacer una solución medio-medio: en el 'OnClose' del segundo formulario puse todo a mano como quiero que se vea la segunda vez que entro, y ya está. Ya me cansó.
Gracias a todos por todo.