Cerrar Formulario Modal al dar clic fuera de él.

[Francisco Lorente]

Hola a todos.

¿Se puede cerrar un formulario modal haciendo click fuera de él?

Gracias a todos de antemano.

Saludos.

Francisco Lorente.

Murcia. España.

[Daniel Sánchez]

Si desde el método deactivate del formulario pones thisform.release

Saludos

--
Visita el Blog de la Comunidad Visual FoxPro en Español: http://comunidadvfp.blogspot.com
---
Has recibido este mensaje porque estás suscrito al grupo "Comunidad de Visual Foxpro en Español" de Grupos de Google.
Para cancelar la suscripción a este grupo y dejar de recibir sus mensajes, envía un correo electrónico a publicesvfoxp...@googlegroups.com.
Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/0a55d7c9-a938-4f64-9a69-2756eb2e2828n%40googlegroups.com.

--

Daniel Sánchez Escobar
Investigación y Desarrollo
Reset Software SAC
Móvil y WhatsApp +051-949398047 / Móvil 948615385
Trujillo - Perú

P  Sugerimos no imprimir este e-mail a menos que sea absolutamente necesario. Protejamos el medio ambiente.

[Antonio Meza]

Daniel, lo probé pero no me funciono, me imagino que se debe a que al estar el formulario en Modal no permite desactivar el formulario, al menos que le des cerrar.

saludos

Antonio Meza

[Víctor Hugo Espínola Domínguez]

No veo la utilidad de implementar eso, hacer click fuera del formulario necesita más esfuerzo que hacerlo dentro ;-)

Saludos,

Víctor.

Lambaré - Paraguay.

--

[Antonio Meza]

jajajajajajaj y si !!!

[Allan Raúl Acuña]

Me imagino que el usuario quiere que se cierre para agilizar la navegación entre las ventanas. 1 clic menos.

---

De: publice...@googlegroups.com <publice...@googlegroups.com> en nombre de Antonio Meza <solv...@gmail.com>
Enviado: martes, 9 de marzo de 2021 17:11
Para: Comunidad de Visual Foxpro en Español <publice...@googlegroups.com>
Asunto: Re: [vfp] Cerrar Formulario Modal al dar clic fuera de él.

 

Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/9d85847d-e4a8-4d22-ab2f-639a200613c0n%40googlegroups.com.

[Allan Raúl Acuña]

---

De: publice...@googlegroups.com <publice...@googlegroups.com> en nombre de Antonio Meza <solv...@gmail.com>
Enviado: martes, 9 de marzo de 2021 17:11
Para: Comunidad de Visual Foxpro en Español <publice...@googlegroups.com>
Asunto: Re: [vfp] Cerrar Formulario Modal al dar clic fuera de él.

 

Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/9d85847d-e4a8-4d22-ab2f-639a200613c0n%40googlegroups.com.

[Daniel Sánchez]

Bueno obvio si es modal bloquea todo, debe ser un no modal para que esos eventos se disparan, como el activate, deactivate, gotfocusy lostfocus

Salud

Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/5de8072f-6903-4f28-bad5-7e179877263bn%40googlegroups.com.

[ZeRoberto]

Talvez usando la api mouse_event puedes deducir si hizo click fuera de tu formulario

http://conclase.net/winapi/curso/winfun/mouse_event

Saludos

Ze

[ZeRoberto]

Me respondo a mi mismo, mouse_event te emula el control del mouse, pero para capturar pudieras usar estas dos funciones GetKeyState para capturar el mouse y GetCursorPos para determinar la posicion del Mouse

Declare Integer GetKeyState In user32 Integer vKey

Declare Integer GetCursorPos In user32 String @lpPoint

Saludos

Ze

VFP Unlimited - Canal de Youtube

https://www.youtube.com/channel/UCkUIcHDsOdMUIdhYNO985JQ

Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/bd3e1649-55ae-4e90-bd64-763fc1fedd29n%40googlegroups.com.

[Hugo C.]

Tal vez sin formularios modales y cerrando el "modal" en el actívate del formulario que lo invoco o en el lostfoucs del mismo modal

Saludos

[Francisco Lorente]

Gracias a todos por responder.

El tema es que he creado un control que, al pulsar un botón del mismo, despliega un formulario no modal sin barra de título el cual se cierra al perder el foco (a través del evento Deactivate).

Funciona bien cuando el formulario que contien el control es no modal, pero cuando el formulario es modal, ese formulario no modal del control se comporta como si fuese modal y no cierra cuando se pulsa fuera de él.

Probaré con las funciones APi que comenta ZeRoberto y les cuento.

Saludos.

Francisco Lorente.

Murcia. España.

[Francisco Lorente]

¡Solucionado! con el código que encontré en:  https://rahsuarez.wordpress.com/2010/01/25/api-para-mover-el-puntero-del-mouse-en-foxpro-setcursorpos/

Dejo aquí la solución por si a alguien le pudiera sevir

El el evento init del formulario modal ejecuto la instrucción:

    On Key Label LEFTMOUSE CloseActiveForm()

y en el evento Destroy

    On Key Label LEFTMOUSE

El archivo CloseActiveForm.prg es:

    Local m.lnMouseTop, m.lnMouseLeft, m.lnFormTop, m.lnFormLeft,  m.lnFormBottom, m.lnFormRight
    
    Try
        m.lnMouseTop = GetMousePos(1)                                                                  &&    Posición Y del ratón.
        m.lnMouseLeft = GetMousePos(2)                                                                  &&    Posición X del ratón.
        m.lnFormTop = Objtoclient(_Screen.ActiveForm, 1)                                     &&    Coordenada superior del formulario activo.
        m.lnFormLeft = Objtoclient(_Screen.ActiveForm, 2)                                     &&    Coordenada izquierda del formulario activo.
        m.lnFormRight = m.lnFormLeft + Objtoclient(_Screen.ActiveForm, 3)      &&    Coordenada derecha del formulario activo.
        m.lnFormBottom = m.lnFormTop + Objtoclient(_Screen.ActiveForm, 4)  &&    Coordenada inferior del formulario activo.
       
        &&&&&&&&&&&&&&&&&&&&
        &&
        &&    Si la posición del ratón no coincide con la superficie del formulario activo, cerramos el mismo.
        &&
        &&&&&&&&&&&&&&&&&&&&
       
        If ! Between(m.lnMouseTop, m.lnFormTop, m.lnFormBottom) or ! Between(m.lnMouseLeft, m.lnFormLeft, m.lnFormRight)
            _Screen.ActiveForm.Release()
        EndIf
       
    Catch To m.loError
    EndTry
    
    &&&&&&&&&&&&&&&&&&&&
    &&
    &&    Basado en el código del enlace: https://rahsuarez.wordpress.com/2010/01/25/api-para-mover-el-puntero-del-mouse-en-foxpro-setcursorpos/
    &&
    &&&&&&&&&&&&&&&&&&&&
    
    Function GetMousePos(m.lnPosition)
        Declare Short GetCursorPos In user32 String @ lpPoint
        Local m.lcBuffer, m.lnReturn
       
        lcBuffer = Replicate(Chr(0), 8)
        GetCursorPos(@lcBuffer)
        Do Case
            Case m.lnPosition = 1                                                                &&    Posición Y
                m.lnReturn = buf2dword(Substr(m.lcBuffer, 5, 4))
            Case m.lnPosition = 2                                                                &&    Posición X
                m.lnReturn = buf2dword(Substr(m.lcBuffer, 1, 4))
        EndCase
        Return m.lnReturn
    EndFunc
    
    Function buf2dword(m.tcBuffer)
        Return Asc(Substr(m.tcBuffer, 1, 1));
            + Bitlshift(Asc(Substr(m.tcBuffer, 2, 1)), 8);
            + Bitlshift(Asc(Substr(m.tcBuffer, 3, 1)), 16);
            + Bitlshift(Asc(Substr(m.tcBuffer, 4, 1)), 24)
    EndFunc

A todos, muchas gracias por vuestro esfuerzo en ayudarme.

Saludos.

Francisco Lorente

Murcia. España