Como anular el ModalResult de un botón ?

[carlosmari]

Hola !!

Tengo un formulario con los clásicos botones 'Aceptar' y 'Cancelar'. En el botón Aceptar tengo seteado el ModalResult como 'mrOK'
Estoy realizando unas validaciones en este botón y de estar todo ok recién quiero que continúe, de lo contrario quiero que retorne donde estaba antes, pero lo que hace es continuar su salida del formulario.
Estoy necesitando que sea mrOk por un tratamiento especial que utilizo en onCloseQuery.

Ejemplo de mi código en el botón Aceptar con modalResult en mrOk
-------------------------------
if valida() = false then
Exit; // quiero que no vaya al onCloseQuery ... pero no me hace caso

... sigue mi código y se va al onCloseQuery
-------------------------------


¿Cómo hago para que me retorne al form sin que sigue su acción normal de irse al onCloseQuery?

Gracias por la ayuda que puedan brindarme.

[delphi.com.ar]

Lo que hago normalmente en estos casos (no es la única solución), es poner en la propiedad ModalResult del botón mrNone, y cuando la validación es correcta, desde el mismo código asigno el ModalResult mrOk.

if valida then
  ModalResult := mrOk;

Saludos!

[carlosmari]

probé lo que tu me dices funcionó, solo que tiene un problema ... tengo que apretar dos veces el botón Aceptar para que salga.

Supongo que la primera vez como está en mrNone no asume que tiene que salir y la segunda vez, como le asigné en el código del botón el mrOk, ahora puede salir.

gracias por cualquier sugerencia !!

[delphi.com.ar]

Me parece que el problema esta en tu función "Valida", si cuando termina de ejecutarse el evento, el ModalResult del form <> mrNone, se cierra el form.
Te recomendaría que lo sigas paso a paso a ver si verdaderamente pasa siempre por la línea: ModalResult := mrOk;

Saludos!

[carlosmari]

lo he seguido paso a paso y efectivamente pasa por la asignación que le hice: btAceptar.ModalResult := mrOk ...
es más, eliminé la función y si o si pasa por esta asignación e igualmente tengo que apretar dos veces el botón Aceptar para que finalmente salga

[__cadetill]

Cierro el hilo por no pertenecer a este foro y lo muevo al foro Varios. Seguirlo allí

Perdón por las molestias