Manejo de ventanas

[beginner01]

Empezado por Kelvin

y tengo en el evento OnClose de frmclientes lo siguiente:



procedure Tfrmclientes.FormClose(Sender: TObject; var CloseAction: TCloseAction
);
begin


CloseAction:=caFree;


end;



Lo que sucede es que, al iniciar la aplicación y abrir el formulario frmclientes por primera vez este se crea y se muestra sin problemas, luego lo cierro y todo bien, pero cuando quiero volver a mostrarlo siempre desde el mismo formulario desde donde lo llame al iniciar la aplicación, ya no se vuelve a mostrar hasta iniciar de nuevo la aplicacion y caer en el mismo circulo...

¿Que podra ser..?...me suena a que no se esta destruyendo el formulario o algo se esta quedando en memoria...no se..

Gracias y a la espera de sus comentarios...

saludos.

cambia.

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

por

Código Delphi [-]
 
FreeAndNil(frmclientes);

[Kelvin]

Empezado por beginner01

saludos.

cambia.

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

por

Código Delphi [-]
 
FreeAndNil(frmclientes);

Vaya!...esto esta saliendo mas complejo de lo que me esperaba, ¿Sera que estoy condenado a dejar que el proyecto funcione bajo el comportamiento normal de lazarus de crear todas las ventanas al inicio de la aplicación y luego solo ir ocultando o mostrando las que se necesiten???..ojala que no sea así... confío en que hay una solución para mi problema

Ahora, hago el cambio que me indicas y obtengo el siguiente mensaje:


Project regservic.exe raised exception class 'External:SIGSEGV'


Donde "regservic", es el nombre de mi proyecto

¿Que estará sucediendo?


De antemano gracias por la ayuda de todos...y ..pues sigo pendiente de sus comentarios y buscando también por mi cuenta...

Saludos...

[ecfisa]

Hola Kelvin.

Dejá el evento OnClose tál como lo tenías:

Código Delphi [-]
...
procedure TfrmClientes.FormClose(Sender: TObject; var CloseAction: TCloseAction);
begin
  CloseAction:= caFree;
end;

Y agregá el evento OnDestroy:

Código Delphi [-]
procedure TfrmClientes.FormDestroy(Sender: TObject);
begin
  frmClientes:= nil; 
end;

Saludos.

[Kelvin]

Bravo!!!!....

Aplique los cambios que me indicas y efectivamente ahora funciona a la perfección.

Agradesco tu interes y colaboración, asi mismo, quiero hacer extensivo mi agradecimiento para con todos los que aportaron su tiempo y dedicacion para ayudarme: Caral, luk2009,beginner01 y ecfisa....muchas gracias a tod@s...!!

Saludos..