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
|
||||
|
||||
¡¡¡Es que has modificado mi código!!!
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 ModalResult := mrOk; Código:
if valida then btAceptar.ModalResult := mrOk;
__________________
delphi.com.ar Dedique el tiempo suficiente para formular su pregunta si pretende que alguien dedique su tiempo en contestarla. |
#7
|
||||
|
||||
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 |
#8
|
|||
|
|||
sorry por el despiste
Funcionó !!!!!! Gracias por todo.
__________________
Carlos Marí |
#9
|
|||
|
|||
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.
__________________
Carlos Marí |
#10
|
||||
|
||||
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 begin { Hacer validaciones } end; Código:
if ValorDelControlIncorrecto then begin Control.SetFocus; raise Exception.Create('Usted debe acostumbrarse a poner valores correctos'); end; Cita:
Código:
canClose := valida(); |
#11
|
|||
|
|||
gracias !! me ha resultado muy interesante la manera en que manejas tu las validaciones.
__________________
Carlos Marí |
#12
|
|||
|
|||
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 |
#13
|
||||
|
||||
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
__________________
Lecciones de mi Madre. Tema: modificación del comportamiento, "Pará de actuar como tu padre!" http://www.purodelphi.com/ http://www.nosolodelphi.com/ Última edición por jhonny fecha: 14-03-2007 a las 23:14:10. |
#14
|
|||
|
|||
Cita:
el kind del bitbtn esta en BkCustom no funciona |
|
|
|