Method en Xbrowse al pulsar el ratón

Post Reply
FiveWiDi
Posts: 1238
Joined: Mon Oct 10, 2005 2:38 pm
Has thanked: 3 times
Been thanked: 4 times

Method en Xbrowse al pulsar el ratón

Post by FiveWiDi »

Hola a todos,

¿Sabrían decirme que METHOD se lanza cuando se pulsa el ratón sobre una lína de un XBrowse?

Es decir, pulso sobre una línea de un XBrowse y quisiera mostrar un mensaje "Hola Mundo", y si puede ser el registro de donde venía y/o sobre cual he pulsado.

Muchas gracias
Un Saludo
Carlos G.

FiveWin 24.02 + Harbour 3.2.0dev (r2403071241), BCC 7.7 Windows 10
paquitohm
Posts: 287
Joined: Fri Jan 14, 2022 8:37 am
Been thanked: 1 time

Re: Method en Xbrowse al pulsar el ratón

Post by paquitohm »

Carlos,

Mírate por favor:

Code: Select all | Expand

:LButtonDown()
:lButtonUp()
:LDblClick()
:RButtonDown()
 
Salu2
User avatar
leandro
Posts: 1744
Joined: Wed Oct 26, 2005 2:49 pm
Location: Colombia
Has thanked: 34 times
Been thanked: 10 times
Contact:

Re: Method en Xbrowse al pulsar el ratón

Post by leandro »

Creo que es lo que necesitas

Code: Select all | Expand

:bRClicked := {|nRow, nCol | msginfo(oBrw:nArrayAt) }
 
Si quieres mostrar un menú debes hacer lo siguiente

Code: Select all | Expand

:bRClicked := {|nRow, nCol | Mymenu( nRow,nCol,oBrw) }

function Mymenu( nRow, nCol, oBrw )
Local oPopup
MENU oPopup POPUP 2015 
   MENUITEM "Mis acciones" 
   MENUITEM "Cerrar Ventana" ACTION oWnd:end()
ENDMENU
ACTIVATE POPUP oPopup OF oBrw AT nRow, nCol
return nil

 
Saludos
LEANDRO AREVALO
Bogotá (Colombia)
https://hymlyma.com
https://hymplus.com/
leandroalfonso111@gmail.com
leandroalfonso111@hotmail.com

[ Turbo Incremental Link64 6.98 Embarcadero 7.70 ] [ FiveWin 24.09 ] [ xHarbour 64 bits) ]
FiveWiDi
Posts: 1238
Joined: Mon Oct 10, 2005 2:38 pm
Has thanked: 3 times
Been thanked: 4 times

Re: Method en Xbrowse al pulsar el ratón

Post by FiveWiDi »

Muchas gracias a los 2.

Lo he reesuelto con:

oXBrowse:bLButtonUp

Parece que no entro en conflicto con otros eventos, haré más pruebas pero parece que funcionará como lo tengo.

Muchas gracias,
Un Saludo
Carlos G.

FiveWin 24.02 + Harbour 3.2.0dev (r2403071241), BCC 7.7 Windows 10
Post Reply