Ver Mensaje Individual
  #15  
Antiguo 26-01-2008
Avatar de Lepe
[Lepe] Lepe is offline
Miembro Premium
 
Registrado: may 2003
Posts: 7.424
Reputación: 29
Lepe Va por buen camino
Completo un poquito más:

Cita:
Empezado por jachguate Ver Mensaje
Lo que se crea en el OnCreate, debiera destruirse en el OnDestroy.
Y no tiene nada que ver que se creen dinámicamente o estáticamente las ventanas.

El ciclo de vida es el mismo para ambos tipos de Forms.


En honor a la verdad, poliburro ha detectado el fallo del access violation, pero creo no ha sabido explicarse porque tanto jachguate como yo lo hemos malinterpretado.

1º- Deja el StringList en el oncreate como lo tenías. Liberas la lista en el OnDestroy.

2º- El access violation es problema de cómo usas tus ventanas, no tiene nada que ver con el TStringList.

Si tu ventana se llama FrmClientes (por decir algo) y esa variable la usas en todas tus ventanas, en el Onclose añade:
Código Delphi [-]
procedure TFrmclientes.OnClose(... Action:TCloseAction);
begin 
  action := cafree;
  frmClientes := nil;
end;

cuando necesites usar la ventana de nuevo, comprueba si ya está abierta:
Código Delphi [-]
  if Frmclientes <> nil then
    // ya está abierta
  else
    FrmClientes := TFrmclientes.Create(self);

// y para cerrar la ventana:
 FrmClientes.Close;  // o incluso Frmclientes.Free, ambas funcionaran.

Si no usas la variable FrmCliente en tu aplicación, es decir, creas las ventanas así:
Código Delphi [-]
var f:TFrmClientes;
begin 

   f := TFrmclientes.Create(nil / application / self);

// o bien haces esto en alguna ocasión:
 with TFrmclientes.Create(...) do
 try 


 finally
    Free
 end;

Entonces no puedes usar el evento OnClose para poner la variable FrmClientes a nil, siempre deberías usar FreeandNil(f) o de la variable que uses.

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

Última edición por Lepe fecha: 26-01-2008 a las 14:00:10.
Responder Con Cita