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.
Desactivar el boton derecho del Mousse???
Moderator: Rathinagiri
- AUGE_OHR
- Posts: 2061
- Joined: Sun Aug 25, 2019 3:12 pm
- DBs Used: DBF, PostgreSQL, MySQL, SQLite
- Location: Hamburg, Germany
Re: Desactivar el boton derecho del Mousse???
hi,
not sure but i "think" it must be
you need IMHO "HWND" of "Form"
not sure but i "think" it must be
Code: Select all
CREATE EVENT PROCNAME MyMouse() HWND Form_1.HANDLE STOREINDEX nIndex
have fun
Jimmy
Jimmy
Re: Desactivar el boton derecho del Mousse???
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()
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()
- srvet_claudio
- Posts: 2193
- Joined: Thu Feb 25, 2010 8:43 pm
- Location: Uruguay
- Contact:
Re: Desactivar el boton derecho del Mousse???
MiniGui Ex. no posee manejo de eventos CREATE EVENT...
- danielmaximiliano
- Posts: 2612
- Joined: Fri Apr 09, 2010 4:53 pm
- Location: Argentina
- Contact:
Re: Desactivar el boton derecho del Mousse???
le comente que es SET Eventsrvet_claudio wrote: ↑Sat Apr 17, 2021 11:53 am MiniGui Ex. no posee manejo de eventos CREATE EVENT...
*´¨)
¸.·´¸.·*´¨) ¸.·*¨)
(¸.·´. (¸.·` *
.·`. Harbour/HMG : It's magic !
(¸.·``··*
Saludos / Regards
DaNiElMaXiMiLiAnO
Whatsapp. := +54901169026142
Telegram Name := DaNiElMaXiMiLiAnO
¸.·´¸.·*´¨) ¸.·*¨)
(¸.·´. (¸.·` *
.·`. Harbour/HMG : It's magic !
(¸.·``··*
Saludos / Regards
DaNiElMaXiMiLiAnO
Whatsapp. := +54901169026142
Telegram Name := DaNiElMaXiMiLiAnO