Error al cerrar un formulario
 

Estoy trabajando con BCB 6 con una base de datos en FB 2.5.

Tengo un formulario en el que hay un TPageControl con cinco pestañas:

El problema me está apareciendo en la pestaña que veis seleccionada ahora. En esa pestaña hay dos TListView y un TVirtualStringTree. Al seleccionarse la pestaña únicamente contiene información el TListView de la izquierda y cuando se selecciona algún elemento se completan los otros dos elementos tal como se ve en la imagen.

Si cierro el formulario cuando sólo tiene información el TListView de la izquierda no hay ningún problema pero si intento hacerlo cuando los otros elementos están como en la imagen al llegar al evento OnClose del formulario se produce una violación acceso en la librería rtl60.bpl y, siguiendo la ejecución con el depurador, salta el código del módulo VirtualTrees.pas en procedure TCustomVirtualStringTree.DefineProperties(Filer: TFiler). No he sido capaz de averiguar por qué se produce este error. No sé si alguno podréis darme algún consejo; si es necesario os enviaría el código fuente y la base de datos.

Hola a todos,

¿No podrías utilizar el evento "OnCloseQuery" del formulario para "borrar" el "TreeView" o en todo caso los controles que muestran los "detalles"? Creo que la clave puede estar ahí... en dejar las cosas "listas" para que el formulario pueda cerrarse sin problemas.

Bueno, parce que así funciona aunque no me queda muy claro por qué donde sugieres sí, funciona con este código:
y exactamente con el mismo en OnClose da error. Muchas gracias por la sugerencia. Si alguien más sabio que yo me lo puede explicar...

Hola a todos,

El problema puede estar en que, al cerrarse el formulario, un determinado control puede perder el foco, por ejemplo, causando que un determinado evento se dispare... y que, cuando esto ocurra, ya no se cuente con los recursos necesarios (de ahí la violación de acceso), en definitiva, obteniendo un resultado no deseado e inesperado. De este modo, podemos usar el evento "OnCloseQuery" para "dejar las cosas claras", para que el formulario pueda cerrarse sin problemas.

Gracias por la respuestas. Si entiendo perfectamente lo que me explicas pero lo que no entiendo es por qué poniendo le mismo código en los dos eventos (OnClose y OnCloseQuery) en uno si funciona y en el otro no. De hecho, como ves, antes de ejecutar nada "quito" los posibles eventos que pueden verse afectados por el borrado. En fin, el caso es que funciona. Muchas gracias.

Estaba continuando con el código y me he dado cuenta de una cosa. Ahora, efectivamente, no me da error al cerrar el formulario; sin embargo si trato de abrir otro de los que componen el proyecto es en ese momento cunado se produce ese mismo error. Ahora si que me he perdido del todo. :mad:

Hola a todos,

No te queda más remedio que depurar... acaso "paso por paso", para ver qué puede estar pasando ahí, dónde falla, exactamente. Así sin más es complicado decir mucho más, vaya, al menos en lo que a mí se refiere. Quita el código que has puesto para evitar el error... y a depurar... desde el principio... a ver qué es lo que ocurre...

Cierto es que es muy complicado. El problema con el depurador es que aunque lo ejecute línea a línea (con F7, que se mete en todos los ficheros sea el que sea) cuando llega la línea del error no entra en ningún lado y no sé seguirle la pista. Lo que estoy haciendo, por si acaso hubiera puesto algo en el código que se me haya pasado por alto, es reconstruir todo lo de esas pestaña. Porque, además, en ese formulario hay otros tres TVirtualStringTree y sólo aparece el error cuando ha añadido este último, en el que además sólo uso dos eventos: OnChange y OnGetText.

Hola a todos,

Si habláramos de Delphi... acaso serviría de algo usar FastMM... pero no sé si está disponible para C++ Builder... algo así podría dar más información sobre el error... lo que tal vez ayudaría a solucionarlo.

P.S. Parece que sí que se puede usar FastMM en C++ Builder...

Hola Ángel.

¿Puedes mostrar una copia exacta del error (con el código que tenías al principio) y una captura de pantalla donde se vean las líneas de esa unidad VirtualTrees.pas?

Gracias.

No conocía la herramienta. Lo investigaré.
Lo intentaré, pero como ya he borrado código no sé si podré reproducirlo. Gracias a los dos por la ayuda.

Puedo prometer y prometo que no sé lo que he hecho. He borrado por tercera vez el código y le he vuelto a plantear y ahora no da ningún error. No lo entiendo pero ahora funciona. :confused: