bChange...xBrowse ???

[Ale SB]

Code: Select all  Expand view  RUN

oBrw := TXBrowse():New( oDlg )     
            oBrw:CreateFromResource( 102 )
            oBrw:bChange := {|| Msginfo("ale") }


Si y mover la barra de selleccion pelas las setas del teclado, la Msginfo() executa normalmente.

Si y Clickar una vez sobre alguno registro del browse, MsgInfo() se repete 2 vezes.

Porque ???

Saludos, Ale

[Antonio Linares]

Ale,

> Si y Clickar una vez sobre alguno registro del browse, MsgInfo() se repete 2 vezes.

Posiblemente porque el MsgInfo() fuerza una perdida de focus, y al regresar el focus al browse, el bChange vuelve a evaluarse.

Prueba asi y comprueba si suena dos veces:

oBrw:bChange := {|| MsgBeep() }

[Ale SB]

Tens razão Antonio..

com oBrw:bChange := {|| MsgBeep() }

Funciona Perfeitamente.

Gracias.

Saluds, Ale