Como anular el ModalResult de un botón ?
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. |
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.
Código:
if valida then |
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 !! |
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! |
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 |
¡¡¡Es que has modificado mi código!!! :D
Yo le asignaba directamente el modal result al Form y tu lo has cambiado asignándoselo al botón. Por eso la primera vez no funciona y si la segunda. Nota la diferencia: Mi Código: Código:
if valida then Código:
if valida then |
Lo que no entinedo del problema original es que el evento OnCloseQuery está precisamente para hacer validaciones e impedir que se cierre el formulario en caso de que no se cumplan las condiciones. ¿Por qué no hacerlo así?
// Saludos |
sorry por el despiste :)
Funcionó !!!!!! Gracias por todo. |
Roman:
Al principio había puesto la validación en el onCloseQuery. El problema lo tenía cuando se producía un error de validación pero igualmente quería abandonar el form (por que me arrepentí y no quiero seguir con la carga), es ahí donde quedaba atrapado por los erros de validación y no podía salir de ninguna manera. Ej: if valida() = false then canClose = false else canClose = true; por esta razón es que quería validar antes de llegar al onCloseQuery Si hubiera otra manera de solucionar mi problema, me gustaría sus consejos. Gracias por todo. |
Cita:
Por error de validación te refieres a que se produce una excepción en la función valida() o simplemente a que regresa false? De cualquier forma si la validación falla, es decir, no se cumplen las condiciones para aceptar los cambios entonces basta que te regrese al formulario y el usuario oprima el botón Cancelar en lugar de Aceptar. La estructura de prácticamente cualquier evento OnCloseQuery que hago es: Código:
if ModalResult = mrOk then Código:
if ValorDelControlIncorrecto then Cita:
Código:
canClose := valida(); |
gracias !! me ha resultado muy interesante la manera en que manejas tu las validaciones.
|
Cita:
Estimados Colegas: Disculpen mi Ignorancia, pero tengo este mismo problema, necesito utilizar el modarlresult en MrOK., pero no entiendo donde en el form debo asignar el modalresult a MrOK, lo intento poner en el evento onkeypress del form, pero no funciona. Disculpen las ignorancia |
El FormStyle de tu forma debe ser fsNormal...
Otra causa podria ser porque quiza sea que no se este disparando el evento... Como dices que estas usando el OnKeyPress del Form pues debes revisar que el KeyPreview sea True |
Cita:
el kind del bitbtn esta en BkCustom no funciona |
La franja horaria es GMT +2. Ahora son las 15:25:51. |
Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi