FiveTech Software tech support forums

Olá Antonio,

Testando o exemplo TESTBUBM.PRG clique sobre qualquer botão e mantenha o botão do mouse pressionado e arraste o cursor do mouse para fora do botão e solte-o, você verá que a função que está em "bAction" não será executada.

Obrigado,

Rossine.

Olá,

Incluí o trecho abaixo em BUTTON.PRG, e talvez isto seria uma possível solução:

Code: Select all  Expand view


...
  METHOD LButtonUp( nRow, nCol, nFlags )
...


METHOD LButtonUp( nRow, nCol, nFlags ) CLASS TButton

//   if ! ::lProcessing       Sempre retorna .F.
      ::Click()
//   endif

return nil

...



Testei aqui e funcionou

Isto está certo ?

Obrigado,

Rossine.

Rossine:

Disculpa me meta en el tema, pero creo que ese comportamiento
normal en los botones.

Saludos

Ruben Fernandez.

Rossine,

Como te comenta Ruben, ese comportamiento es el usual de los botones.

OK, entendi

Obrigado,

Rossine.