FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
|||
|
|||
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.
__________________
Carlos Marí |
#2
|
||||
|
||||
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 ModalResult := mrOk;
__________________
delphi.com.ar Dedique el tiempo suficiente para formular su pregunta si pretende que alguien dedique su tiempo en contestarla. |
#3
|
|||
|
|||
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 !!
__________________
Carlos Marí |
#4
|
||||
|
||||
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!
__________________
delphi.com.ar Dedique el tiempo suficiente para formular su pregunta si pretende que alguien dedique su tiempo en contestarla. |
#5
|
|||
|
|||
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
__________________
Carlos Marí |
#6
|
|||
|
|||
Cierro el hilo por no pertenecer a este foro y lo muevo al foro Varios. Seguirlo allí
Perdón por las molestias |
|
|
|