Cerrar ventana Showmodal

[dec]

Hola,

No parece que tengas que mostrar un formulario para comprobar acto seguido si no puede mostrarse o no... ¿No te parece más lógico (oh, cómo me gusta esta palabra), digo, comprobar "la condición" y mostrar o no el formulario dependiendo de esta? Yo creo que sería menos problemático, ¿no? Y más lógico...

[[Espartaco]]

Hola Dec,

Efectivamente llevas razón, y eso fue lo que intenté primero, pero si miras mi anterior mensaje explico que al hacerlo, sin saber por qué, el locate hacía cosas raras y opté por hacer la comprobación después, ya que así no tengo problemas con el locate.

Incluso miré a ver si el problema estaba en el BDE del servidor de archivos donde tengo ubicadas las tablas, pero creo que ahí no estaba el problema. Ah, se me olvidaba son Paradox, ya sé que tienen problemas en red pero tengo bastante prisa. Una cosa, aunque las tablas están en otro ordenador, el programa está funcionando de momento en monousuario.

Gracias.

[[gluglu]]

Ya se ha comentado varias veces en el foro que en los eventos OnCreate, OnActivate, OnShow ... no se puede cerrar una ventana que se está creando en ese momento.

Busca en el Foro acerca de AfterShow.

Puedes consultar también aqui, aqui y aqui.

[[Espartaco]]

He mirado los links que pone gluglu, pero realmente no me solucionan el problema.

Me aguantaré como lo tengo, que es desactivando el botón de grabar de la ficha para que el usuario cierre la ventana manualmente.

Muchas gracias a todos por haberos molestado en ayudarme.

Ciertamente con este foro no te sientes solo.

[[duilioisola]]

Una idea de parche :

Crea una variable global al form en cuestión que se llame Cerrar y sea boolean.
Si la condición que chequeas debe cerrar el form, la pones a True.
En el AfterShow, si Cerrar=True le dices que cierre el form. (close / ModalResul:=mrOk)

[[Espartaco]]

Gracias duilioisola, pero no encuentro el evento AfterShow por ningún sitio.

Que

[[Espartaco]]

Gracias duilioisola, pero no encuentro el evento AfterShow por ningún sitio.

Que yo sepa sólo existe el OnShow.

[[gluglu]]

El AfterShow no es un evento del Form, ni de ningún otro control.

Es un método que se explica en los hilos que te mencioné anteriormente. Es una manera de ejecutar algo después de que el Form haya creado todos los controles, se haya activado, y se muestra en pantalla.

Se le ha puesto ese nombre como se le podía haber puesto cualquier otro (p.ej. 'DespuesDeMostrar').

Si lo crees oportuno, vuelve a revisar los hilos que expuse más arriba y creo sinceramente que te debería de servir.

Si tienes alguna duda adicional, puedes volver a preguntar sin problema.