Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Problema de violación de acceso (https://www.clubdelphi.com/foros/showthread.php?t=43294)

Sadistyk 08-05-2007 01:15:55

Problema de violación de acceso
 
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 08-05-2007 01:44:13

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 08-05-2007 04:09:11

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

form1.Enabled := false;
form2.Show;

dec 08-05-2007 04:14:27

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] 08-05-2007 10:55:42

Cita:

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 08-05-2007 19:02:10

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

dec 08-05-2007 19:11:58

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 08-05-2007 23:49:14

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 09-05-2007 00:18:28

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 09-05-2007 02:54:39

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.;)


La franja horaria es GMT +2. Ahora son las 20:40:02.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi