//-> Para Accionar Las Teclas Ctrl+F10 Para Llamar la Calculadora
oDlg:bKeyDown := { | nKey | TECLAS_PRESS( nKey ) }
STATIC FUNCTION TECLAS_PRESS( nKey )
DO CASE
CASE ( nKey == VK_F10 .AND. GetKeyState( VK_CONTROL ) )
? 'Control+F10-For Windows'
// ACTION...
ENDCASE
RETURN( .T. )
Antonio, ke estoy haciendo errado??
Necesito Teclar CONTROL + F10 y Hacer Una Accion...
TECLAS DE FUNCIÓN
- AngelSalom
- Posts: 727
- Joined: Fri Oct 07, 2005 7:38 am
- Location: Benicarló (Castellón ) - España
- Has thanked: 1 time
- Contact:
Has Probado con SetKey() ?
SetKey (K_CTRL_F10, {|| Funcion()})
// Control-function keys
// Añadido por Victor 10/04/2003 15:13
#define K_CTRL_F1 -20 // Ctrl-F1
#define K_CTRL_F2 -21 // Ctrl-F2
#define K_CTRL_F3 -22 // Ctrl-F4
#define K_CTRL_F4 -23 // Ctrl-F3
#define K_CTRL_F5 -24 // Ctrl-F5
#define K_CTRL_F6 -25 // Ctrl-F6
#define K_CTRL_F7 -26 // Ctrl-F7
#define K_CTRL_F8 -27 // Ctrl-F8
#define K_CTRL_F9 -28 // Ctrl-F9
#define K_CTRL_F10 -29 // Ctrl-F10
#define K_CTRL_F11 -44 // * Ctrl-F11
#define K_CTRL_F12 -45 // * Ctrl-F12
A mi me va muy bien.
SetKey (K_CTRL_F10, {|| Funcion()})
// Control-function keys
// Añadido por Victor 10/04/2003 15:13
#define K_CTRL_F1 -20 // Ctrl-F1
#define K_CTRL_F2 -21 // Ctrl-F2
#define K_CTRL_F3 -22 // Ctrl-F4
#define K_CTRL_F4 -23 // Ctrl-F3
#define K_CTRL_F5 -24 // Ctrl-F5
#define K_CTRL_F6 -25 // Ctrl-F6
#define K_CTRL_F7 -26 // Ctrl-F7
#define K_CTRL_F8 -27 // Ctrl-F8
#define K_CTRL_F9 -28 // Ctrl-F9
#define K_CTRL_F10 -29 // Ctrl-F10
#define K_CTRL_F11 -44 // * Ctrl-F11
#define K_CTRL_F12 -45 // * Ctrl-F12
A mi me va muy bien.
Angel Salom
Visionwin Software - https://www.visionwin.com
------------------------------------------------------------
fwh 19.05 - harbour 3.2 - bcc 7.4
Visionwin Software - https://www.visionwin.com
------------------------------------------------------------
fwh 19.05 - harbour 3.2 - bcc 7.4
- karinha
- Posts: 7940
- Joined: Tue Dec 20, 2005 7:36 pm
- Location: São Paulo - Brasil
- Been thanked: 3 times
- Contact:
AngelSalom wrote:Has Probado con SetKey() ?
SetKey (K_CTRL_F10, {|| Funcion()})
// Control-function keys
// Añadido por Victor 10/04/2003 15:13
#define K_CTRL_F1 -20 // Ctrl-F1
#define K_CTRL_F2 -21 // Ctrl-F2
#define K_CTRL_F3 -22 // Ctrl-F4
#define K_CTRL_F4 -23 // Ctrl-F3
#define K_CTRL_F5 -24 // Ctrl-F5
#define K_CTRL_F6 -25 // Ctrl-F6
#define K_CTRL_F7 -26 // Ctrl-F7
#define K_CTRL_F8 -27 // Ctrl-F8
#define K_CTRL_F9 -28 // Ctrl-F9
#define K_CTRL_F10 -29 // Ctrl-F10
#define K_CTRL_F11 -44 // * Ctrl-F11
#define K_CTRL_F12 -45 // * Ctrl-F12
A mi me va muy bien.
Gracias Angel, Voy Probar.
Usted és mui inteligente, sabio, instruido.
Saludos
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
- Antonio Linares
- Site Admin
- Posts: 42529
- Joined: Thu Oct 06, 2005 5:47 pm
- Location: Spain
- Has thanked: 31 times
- Been thanked: 77 times
- Contact: