Is waiting mouse up

4D v20 R7

Is waiting mouse up


Is waiting mouse up -> Resultado

Parámetro	Tipo	Descripción
Resultado	Booleano	True si el objeto está esperando por un evento mouse up, de lo contrario False

Descripción

Tema: Eventos formulario

El comando Is waiting mouse up devuelve True después de que el objeto actual haya hecho clic y el botón del ratón no se ha liberado, y cuando el diálogo aún tiene el foco. Debe llamarse desde el método de objeto del objeto actual.

El comando devuelve False en los siguientes casos:

no se llama a partir de un método de objeto
o no se disparó el evento On Clicked en el objeto
o la caja de diálogo ha perdido el foco.

Este comando debe ser utilizado junto con . Le permite sincronizar el estado interno del objeto de formulario con la aplicación global. Básicamente, permite a su código manejar el caso donde el usuario hizo clic y empezó a mover algo dentro de una imagen objeto de formulario, y esta acción es interrumpida por un evento externo, como un cuadro de diálogo de alerta. En este caso, el estado interno del objeto puede ser suspendido de forma indefinida debido a que se espera un evento mouse up que no ocurrirá. Para abordar este problema, debe proteger el código de movimiento del ratón con un comando Is waiting mouse up lo que le asegura que es ejecutado en un contexto válido.

Ejemplo

El siguiente código se puede utilizar para administrar una función de seguimiento del ratón en un objeto imagen:

  //Método de objeto del objeto imagen

 C_LONGINT(vLtracking) //indicador para el modo de seguimiento</p> <p>Case of

:(Form event code=On Clicked)

 If(Is waiting mouse up) //el botón del ratón aún no se suelta

    vLtracking:=1 //estamos en modo de seguimiento

  //... Escriba aquí el código de inicialización para la función de seguimiento

 End if

:(Form event code=On Mouse Move)

 If(vLtracking=1) //estamos en modo de seguimiento

    If(Not(Is waiting mouse up)) //nunca tendremos el ratón hacia arriba

       vLtracking:=0 //detiene el modo de seguimiento

  //... Escriba aquí el código para manejar o cancelar la acción de seguimiento del usuario

    Else //el objeto todavía está esperando un ratón hacia arriba

  //... Escriba aquí el código para el seguimiento

    End if

 End if

:(Form event code=On Mouse Up) //se soltó el botón del ratón

  //... Escriba aquí el código para completar la acción de seguimiento

 vLtracking:=0 //fin del modo de seguimiento

End case

Ver también

Form event code