MDI Child que no se cierran

[senpiterno]

Hola amigos

Mi problema es el que menciono en el titulo, por defecto se que los formularios hijos MDI Child no se cierran a menos que en el evento onclose de este, asignemos a la variable Action el valor de cafree, que es precisamente lo que realizo, pero solo se cierra el primer MDI form y los demas al precionar la X para cerrar el formulario no hacen nada, es mas hasta el formulario contenedor deja de responer cuando lo intento cerrar...a continuacion coloco la forma en que creo los MDI Child y como los cierro...
Para crearlo:

Código Delphi [-]
Procedure TMenuPrincipal.PresionaEntrarMaestroUsuariosDelSistema;
Var
     FormHijo:TMaestroUsuariosIndividual;
Begin
 
  Try //Iniciamos el codigo de control de errores
 
       //Funciones pre-carga formulario....
 
       //Bloqueamos el repintado de la pantalla hasta que no se halla
       //cargado completamente el formulario
       LockWindowUpdate(Handle);
       //Creamos el nuevo hijo   
       FormHijo:=TMaestroUsuariosIndividual.Create(Self);
       //Asigna el caption que tendra el formulario
       FormHijo.Caption:=ColocaNombreFormularios (CNFNomFormMaUsuariosSistema);
       //Que los eventos de teclado se produscan primero en el formulario y despues en los controles
       FormHijo.KeyPreview:=True;
       //Dejamos que la pantalla se repinte, para mostrar en pantalla
       //lo que el formulario muestra 
       LockWindowUpdate(0);
 
       //Funciones pos-carga formulario....
 
  Except //Se ha producido un error
     On E:Exception Do
         If (MensajesDeError(ErroresSistema(E), E, GloMsgErrorCargaFormDesdeMenuPrincipal,False)<> OpReintentar) Then Begin
            CierraCualquierObjeto([FormHijo]);
            Exit;//Salismos del procedimiento
         End;//If
      End;//on
End;

Para cerrarlos

Código Delphi [-]
 
Procedure TMaestroUsuariosIndividual.FormClose(Sender: TObject;
var Action: TCloseAction);
Begin
    OperacionEnCurso:=OpSaliendo;//Se carga la operacion en curso
    //Borramos el formulario de la lista de nombres abiertos
    BorraNombreFormulariosEnLista(self.Caption);
    //Cerramos accesos a datos
    CierraCualquierObjeto([TUsuarios,DSUsuarios,TranLecturaUsuarios]);
    //Salimos del formulario
    Action:=cafree;
End;
 
Procedure TMaestroUsuariosIndividual.FormCloseQuery(Sender: TObject;
var CanClose: Boolean);
Begin
    //Averiguamos si podemos cerrar el formulario
    If SalirFormularioUsuarios Then Begin
       CanClose:=True;//Cerranmos el formulario
    End Else Begin
       CanClose:=False;//No Cerranmos el formulario
    End;
End;

esta puesto tal cual lo tengo...las funciones que aparecen al cerrar el form son comprovaciones para saber si es posible cerrar el formulario(en caso de que este en proceso un ingreso o una modificacion) o para descargar de memoria objetos creados dentro del form...

Se agradece cuanquier ayuda
Saludos....

[senpiterno]

Bueno, ya que veo que nadie me puede ayudar con mi duda, me podrian indicar cual es la forma acostumbrada o mas utilizada para abrir y cerrar formularios MDIChild...

Saludos...

[[eduarcol]]

Mira primero que todo si no te han contestado es porq quizas nadie sepa la respuesta, me parece muy pronto para

Bueno, ya que veo que nadie me puede ayudar con mi duda,

con respecto a lo que dices

al precionar la X para cerrar el formulario no hacen nada, es mas hasta el formulario contenedor deja de responer cuando lo intento cerrar

por lo que logre entender el problema no es como lo cierras si no alguna de las funciones que incluyes alli porq el comportamiento normal seria que se minimizara no que dejara de responder tal vez debas dpurar paso a paso y nos cuentas que sucede

[senpiterno]

Empezado por eduarcol

por lo que logre entender el problema no es como lo cierras si no alguna de las funciones que incluyes alli porq el comportamiento normal seria que se minimizara no que dejara de responder tal vez debas dpurar paso a paso y nos cuentas que sucede

El problema no son las funciones, las he revizado bien y no causan ningun problema, ademas en esas funciones no realizan ninguna operacion que involucre al Form, solo son comprovaciones de los datos que maneja el formulario. Lo extraño del comportamiento de los formularios es que realizan perfectamente las operaciones con los controles que estan contenidos en él, es solo que el boton cerrar no responde y el del form principal tampoco, no es que se queden colgados, sino como explicada, que el evento onclose no se genera al precionar el boton de cerrar...
Que podra estar pasando, quizas sera un problema tenga que ver con las instancias del form que utilizo como plantilla para los MDIChild, tiene alguna ingerencia que todos los form se crean con el mismo nombre, aunque tecnicamente sean instancias diferentes ?....podria estar pasando que al cerrar uno de los MDIChild la aplicacion pierde el foco y ya no puede recuperarlo...
Cualquier ayuda es bien venida, quizas mi tecnica de creacion de los form no es la correcta....

Saludos...

[[eduarcol]]

Yo sigo creyendo que el problema es de una funcion de hecho debe ser la funcion "SalirFormularioUsuarios" porq el closequery se ejecuta antes que el close, por eso si esa funcion dvuelve falso nunca vas a cerrar el formulario

[senpiterno]

Empezado por eduarcol

Yo sigo creyendo que el problema es de una funcion de hecho debe ser la funcion "SalirFormularioUsuarios" porq el closequery se ejecuta antes que el close, por eso si esa funcion dvuelve falso nunca vas a cerrar el formulario

Tienes toda la razon si la funcion "SalirFormularioUsuarios" devulve false nunca saldra del formulario, pero el problema es que ni siquiera se genera el evento OnClosequery, he puesto Break Poin al inicio del evento OnClosequery para ver como se comporta la funcion "SalirFormularioUsuarios" , pero el control del programa nunca llega ahi cuando, preciono cerrar, es por esto que te digo que las funciones incertas en los eventos OnClosequery y OnClose no son el problema, ya que despues de cerrar el primer form hijo, nunca llegan ha generarce dichos eventos al intentar cerrarlos.....Vuelvo a repetir cualquier sugerencia me servira...

Saludos...