Desactivar el boton derecho del Mousse???

General Help regarding HMG, Compilation, Linking, Samples

Moderator: Rathinagiri

Post Reply
User avatar
jorge_riv
Posts: 62
Joined: Thu Nov 22, 2018 2:20 pm
DBs Used: DBF, MySQL,SQL SERVER, Oracle.

Desactivar el boton derecho del Mousse???

Post by jorge_riv »

Hola a todos.
Tengo que desactivar el click derecho del mousse en mis TEXTBOX, como se puede hacer, alguien lo sabe???
Uso Minigui
Al hacer lo siguiente:

DEFINE WINDOW ....
---
---
CREATE EVENT PROCNAME Mouse()
-----
END WINDOW
---
RETURN

FUNCTION Mouse()
********************
LOCAL hWnd := EventHWND()
LOCAL cControl := "", cForm := ""
*
GetControlNameByHandle( hWnd, @cControl, @cForm )
IF HMG_LEN( cControl ) > 0
IF HMG_GetLastMouseMessage() == WM_RBUTTONDOWN
ENDIF
ENDIF
*
RETURN NIL

Pero me da error al compilar:

Harbour 3.2.0dev (r2011030937)
Copyright (c) 1999-2020, https://harbour.github.io/
C:\Users\OFICINA\AppData\Local\Temp\hbmk_5mebnf.dir\em.c:
C:\Users\OFICINA\AppData\Local\Temp\hbmk_jg17uy.c:
Turbo Incremental Link 6.90 Copyright (c) 1997-2017 Embarcadero Technologies, Inc.
Error: Unresolved external '_HB_FUN_EVENTHWND' referenced from
C:\USERS\OFICINA\APPDATA\LOCAL\TEMP\HBMK_5MEBNF.DIR\EM.OBJ
Error: Unresolved external '_HB_FUN_HMG_GETLASTMOUSEMESSAGE' referenced from
C:\USERS\OFICINA\APPDATA\LOCAL\TEMP\HBMK_5MEBNF.DIR\EM.OBJ
Error: Unable to perform link
hbmk2: Error: Running linker. 2
ilink32.exe @C:\Users\OFICINA\AppData\Local\Temp\k5mwkb.lnk

hbmk2: Error: Referenced, missing, but unknown function(s): EVENTHWND(),
HMG_GETLASTMOUSEMESSAGE()


Alguien sabe como solucionar el error??
O por lo menos un ejemplo de como desactivar el boton derecho del mousse???
Gracias.
User avatar
AUGE_OHR
Posts: 2060
Joined: Sun Aug 25, 2019 3:12 pm
DBs Used: DBF, PostgreSQL, MySQL, SQLite
Location: Hamburg, Germany

Re: Desactivar el boton derecho del Mousse???

Post by AUGE_OHR »

hi,

not sure but i "think" it must be

Code: Select all

   CREATE EVENT PROCNAME MyMouse() HWND Form_1.HANDLE STOREINDEX nIndex
you need IMHO "HWND" of "Form"
have fun
Jimmy
User avatar
jorge_riv
Posts: 62
Joined: Thu Nov 22, 2018 2:20 pm
DBs Used: DBF, MySQL,SQL SERVER, Oracle.

Re: Desactivar el boton derecho del Mousse???

Post by jorge_riv »

Me da este Error al Compilar en Minigui 21.03:
Harbour 3.2.0dev (r2011030937)
Copyright (c) 1999-2020, https://harbour.github.io/
C:\Users\OFICINA\AppData\Local\Temp\hbmk_k0xwvq.dir\em.c:
C:\Users\OFICINA\AppData\Local\Temp\hbmk_b558y2.c:
Turbo Incremental Link 6.90 Copyright (c) 1997-2017 Embarcadero Technologies, Inc.
Error: Unresolved external '_HB_FUN_EVENTHWND' referenced from C:\USERS\OFICINA\APPDATA\LOCAL\TEMP\HBMK_K0XWVQ.DIR\EM.OBJ
Error: Unresolved external '_HB_FUN_HMG_GETLASTMOUSEMESSAGE' referenced from C:\USERS\OFICINA\APPDATA\LOCAL\TEMP\HBMK_K0XWVQ.DIR\EM.OBJ
Error: Unable to perform link
hbmk2: Error: Running linker. 2
ilink32.exe @C:\Users\OFICINA\AppData\Local\Temp\4sjk39.lnk

hbmk2: Error: Referenced, missing, but unknown function(s): EVENTHWND(),
HMG_GETLASTMOUSEMESSAGE()
User avatar
srvet_claudio
Posts: 2193
Joined: Thu Feb 25, 2010 8:43 pm
Location: Uruguay
Contact:

Re: Desactivar el boton derecho del Mousse???

Post by srvet_claudio »

MiniGui Ex. no posee manejo de eventos CREATE EVENT...
Best regards.
Dr. Claudio Soto
(from Uruguay)
http://srvet.blogspot.com
User avatar
danielmaximiliano
Posts: 2611
Joined: Fri Apr 09, 2010 4:53 pm
Location: Argentina
Contact:

Re: Desactivar el boton derecho del Mousse???

Post by danielmaximiliano »

srvet_claudio wrote: Sat Apr 17, 2021 11:53 am MiniGui Ex. no posee manejo de eventos CREATE EVENT...
le comente que es SET Event
*´¨)
¸.·´¸.·*´¨) ¸.·*¨)
(¸.·´. (¸.·` *
.·`. Harbour/HMG : It's magic !
(¸.·``··*

Saludos / Regards
DaNiElMaXiMiLiAnO

Whatsapp. := +54901169026142
Telegram Name := DaNiElMaXiMiLiAnO
Post Reply