FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Combinar teclas Control+f7 (SOLUCIONADO)
Posts: 1818
Joined: Wed Oct 26, 2005 02:49 PM

Combinar teclas Control+f7 (SOLUCIONADO)

Posted: Fri Sep 13, 2013 03:35 PM

Buena día para todos....

Que pena molestar de nuevo... Pero requiero hacer la combinación de teclas Control+f7. Estuve mirando en el foro y solo encontré una respuesta a este tema. Pero la solución la dieron para un programa que tiene menú. Resulta que mi programa ya no tiene menú ahora tengo una ribbon. ¿Como hago para que desde mi ventana principal se ejecute una acción al presionar Control+f7?

De antemano gracias

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) ]
Posts: 610
Joined: Wed Oct 19, 2005 08:20 PM

Re: Combinar teclas Control+f7

Posted: Fri Sep 13, 2013 04:03 PM

Hola Leandro:

Aquí tienes un ejemplo combinado con otras teclas:

SETKEY( VK_F7 , {|| if(GetKeyState( VK_SHIFT ), Calendario(), if(GetKeyState( VK_CONTROL ), EliminarDatos(), Calculador() ) ) } )

Un saludo,

Manuel



xH 1.2.3, FWH 23.07 32 bits, BC++ 7.4, xVerce CW 1.0, PellesC
Posts: 1710
Joined: Tue Oct 28, 2008 06:26 PM

Re: Combinar teclas Control+f7

Posted: Fri Sep 13, 2013 04:04 PM
Leandro,
Asi:
Code (fw): Select all Collapse
 oWnd:bKeyDown:= { | nKey, nFlags | iif( GetKeyState( VK_CONTROL ) .AND. nKey == VK_F7,Funcion(), ) }


Saludos,

Adhemar
Saludos,



Adhemar C.
Posts: 1818
Joined: Wed Oct 26, 2005 02:49 PM

Re: Combinar teclas Control+f7

Posted: Fri Sep 13, 2013 04:38 PM

Manuel y Adhemar

Muchas gracias... era lo que necesitaba, de nuevo gracias

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) ]

Continue the discussion