topic-44602

Posts: 1446

Joined: Mon Oct 10, 2005 02:38 PM

Method en Xbrowse al pulsar el ratón
Posted: Fri Jun 14, 2024 06:04 AM

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 25.12 + Harbour 3.2.0dev (r2502110321), BCC 7.7 Windows 11 Home

paquitohm

Posts: 318

Joined: Fri Jan 14, 2022 08:37 AM

Re: Method en Xbrowse al pulsar el ratón
Posted: Fri Jun 14, 2024 09:57 AM

Carlos,

Mírate por favor:

Code (fw): Select all Collapse

:LButtonDown()
:lButtonUp()
:LDblClick()
:RButtonDown()

Salu2

leandro

Posts: 1818

Joined: Wed Oct 26, 2005 02:49 PM

Re: Method en Xbrowse al pulsar el ratón
Posted: Fri Jun 14, 2024 02:33 PM

Creo que es lo que necesitas

Code (fw): Select all Collapse

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

Si quieres mostrar un menú debes hacer lo siguiente

Code (fw): Select all Collapse

: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 25.01 ] [ xHarbour 64 bits) ]

FiveWiDi

Posts: 1446

Joined: Mon Oct 10, 2005 02:38 PM

Re: Method en Xbrowse al pulsar el ratón
Posted: Fri Jun 14, 2024 10:45 PM

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 25.12 + Harbour 3.2.0dev (r2502110321), BCC 7.7 Windows 11 Home

FiveTech Support Forums

Continue the discussion