Antonio - Problemas com classe button

[Rossine]

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.

[Rossine]

Olá,

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

Code: Select all  Expand view  RUN


...
  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.

[Ruben D. Fernandez]

Rossine:

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

Saludos

Ruben Fernandez.

[Antonio Linares]

Rossine,

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

[Rossine]

OK, entendi

Obrigado,

Rossine.