Method en Xbrowse al pulsar el ratón

Method en Xbrowse al pulsar el ratón

Postby FiveWiDi » Fri Jun 14, 2024 6: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 24.02 + Harbour 3.2.0dev (r2403071241), BCC 7.7 Windows 10
FiveWiDi
 
Posts: 1190
Joined: Mon Oct 10, 2005 2:38 pm

Re: Method en Xbrowse al pulsar el ratón

Postby paquitohm » Fri Jun 14, 2024 9:57 am

Carlos,

Mírate por favor:

Code: Select all  Expand view  RUN
:LButtonDown()
:lButtonUp()
:LDblClick()
:RButtonDown()
 

Salu2
paquitohm
 
Posts: 266
Joined: Fri Jan 14, 2022 8:37 am

Re: Method en Xbrowse al pulsar el ratón

Postby leandro » Fri Jun 14, 2024 2:33 pm

Creo que es lo que necesitas
Code: Select all  Expand view  RUN

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


Si quieres mostrar un menú debes hacer lo siguiente

Code: Select all  Expand view  RUN

: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

[ Embarcadero C++ 7.60 for Win32 ] [ FiveWin 23.07 ] [ xHarbour 1.3.0 Intl. (SimpLex) (Build 20230914) ]
User avatar
leandro
 
Posts: 1676
Joined: Wed Oct 26, 2005 2:49 pm
Location: Colombia

Re: Method en Xbrowse al pulsar el ratón

Postby FiveWiDi » 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 24.02 + Harbour 3.2.0dev (r2403071241), BCC 7.7 Windows 10
FiveWiDi
 
Posts: 1190
Joined: Mon Oct 10, 2005 2:38 pm


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: Google [Bot] and 53 guests