claudioprg
02 de Noviembre del 2005

Hola a todos, mi problema es el sgte:
Desde un formulario padre(fsMDI) deseo llamar a uno hijo (childMDI). Haciendo este codigo en el padre:
form1:=tform1.create(Self);
Hasta ahi todo ok.
Pero a la hora de cerrarlo a traves de un boton en el formulario hijo creado a traves del codigo en el boton que agregue para cerrarlo, funciona mal:
procedure button1Cick(...)
begin
form1.free;
end;

Lo que ocurre es que la primera vez, todo funciona bien. Es decir se crea, aparece y desaparece cuando lo cierro. Pero la segunda vez y en adelante se crea bien, pero al cerrarlo, se cierra pero me aparece un mensaje de error diciendome "que determinada direccion de memoria no se puede leer". Porque ? Agradeceria mucho la ayuda de alguien. Chau

pako
02 de Noviembre del 2005

En el boton solamente ponle Close();
y en el evento de onclose del formulario child pon lo siguiente;

void __fastcall TfrmConsuServi::FormClose(TObject *Sender,
TCloseAction &Action)
{
Action = caFree;
frmConsuServi=NULL;
}

Espero habete ayudado.