Al cerrar Form no entra en OnClose

[roman]

Pare entenderlo basta examinar un poco el código de la VCL:

Por un lado el método ShowModal, a grandes rasgos, es así:

Código Delphi [-]
...
Show;
...
ModalResult := 0;
repeat
  Application.HandleMessage;
  if Application.FTerminate then ModalResult := mrCancel else
    if ModalResult <> 0 then CloseModal;
until ModalResult <> 0;
...

Es decir, básicamente efectúa un ciclo que espera y procesa mensajes, y que no termina hasta que el valor de ModalResult sea distinto de cero.

El método Close por su parte, cuando se trata de una ventana modal, lo único que hace es poner el valor de ModalResult en mrCancel.

Por tanto, en un flujo normal, el uso de Close hace que el ciclo termine y se procede a cerrar la ventana (código que sigue al ciclo).

Ahora bien, en ShowModal, si te fijas en el código, antes de que comience el ciclo se llama al método Show. Es este método quien se encarga de llamar a tu evento OnShow, desde donde llamas a Close. Pero justo antes de comenzar el ciclo, ModalResult se inicializa a 0, de manera que poner ModelResult en mrCancel dentro de Close no tiene ningún efecto.

Moraleja: no llames a Close dentro de OnShow.

Lo lógico, al menos partiendo de lo que expones, es quitar la pregunta al usuario del formulario modal. Pregunta antes de crear el formulario, y sólo si su respuesta es afirmativa, creas y muestras el formulario:

Código Delphi [-]
with TfrmGestioUsuarios.Create(nil) do
begin
  if MessageBox(...) = IDOK then
    with TfrmGestioUsuaris.Create(nil) do
    begin
      ShowModal;
      Free;
    end;
end;

// Saludos

[nowheremanza]

Muchas gracias por tu respuesta...

La verdad es que esto que me comentas ya lo había pensado, pero como para hacer la pregunta al usuario, en el OnCreate de dicho Form Modal, hago una serie de comprobaciones (que es por eso que sale el mensaje, si no entra directamente sin mensaje ni nada), pues no quería poner todo ese código en el Principal. Pero como tú bien dices, será mejor ponerlo allí, ya que de otra forma no me será muy fácil. También estoy pensando que puedo hacerlo en el OnCreate, en vez de en el OnShow... ya lo probaré.

El problema que tengo es que estoy utilizando una versión de evaluación, y no puedo ver el código fuente de las Units... así que te agradezco que me hayas comentado cómo funciona el Close de un form Modal...

Hasta luego..