Is waiting mouse up

4D v20.6

Is waiting mouse up


Is waiting mouse up -> Resultado

Parâmetro	Tipo	Descrição
Resultado	Booleano	TRUE se o objeto estiver esperando por um evento mouse up. De outro modo, false.

Descrição

Tema: Eventos formulário

O comando Is waiting mouse up devolve True depois de que o objeto atual tenha sido clicado e o botão do mouse não tenha sido liberado, e quando o diálogo ainda tem o foco. Deve ser chamado desde o método de objeto do objeto atual.

O comando devolve False nos seguintes casos:

não se chama a partir de um método de objeto
ou não foi disparado o evento On Clicked no objeto
ou a caixa de diálogo perdeu o foco.

Este comando deve ser utilizado junto com . Lhe permite sincronizar o estado interno do objeto de formulário com a aplicação global. Basicamente, permite a seu código manejar o caso onde o usuario clicou e começou a mover algo dentro de uma imagem objeto de formulário, e esta ação é interrompida por um evento externo, como um quadro de diálogo de alerta. Neste caso, o estado interno do objeto pode ser suspenso de forma indefinida devido a que se espera um evento mouse up que não ocorrerá. Para abordar este problema, deve proteger o código de movimento do mouse com um comando Is waiting mouse up o que assegura que seja executado em um contexto válido.

Exemplo

O código abaixo pode ser usado para gerenciar uma propriedade de tracking de mouse em um objeto imagem:

  //Método objeto do objeto imagem

 C_LONGINT(vLtracking) //marque para modo tracking

 Case of

    :(Form event code=On Clicked)

       If(Is waiting mouse up) //o botão mouse ainda não foi liberado

          vLtracking:=1 //estamos em modo tracking

  //... Escrever aqui o código de inicialização para a propriedade tracking

       End if

    :(Form event code=On Mouse Move)

       If(vLtracking=1) //estamos em modo tracking

          If(Not(Is waiting mouse up)) //nunca terá o mouse up

             vLtracking:=0 //pare o modo tracking

  //... Escrever aqui o código para manejar ou cancelar a ação de tracking do usuário

          Else //o objeto ainda espera por um mouse up

  //... Escrever aqui o código para tracking

          End if

       End if

    :(Form event code=On Mouse Up) //o botão mouse foi liberado

  //... Escrever aqui o código para completar a ação tracking

       vLtracking:=0 //fim do modo tracking

 End case

Ver também

Form event code