//-> 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
TECLAS DE FUNCIÓN
João Santos - São Paulo - Brasil
- AngelSalom
- Posts: 664
- Joined: Fri Oct 07, 2005 7:38 am
- Location: Vinaros (Castellón ) - España
- 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
http://www.visionwin.com
---------------------------------------------
fwh 19.05 - harbour 3.2 - bcc 7.0
http://www.visionwin.com
---------------------------------------------
fwh 19.05 - harbour 3.2 - bcc 7.0
Gracias Angel, Voy Probar.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.
Usted és mui inteligente, sabio, instruido.
Saludos
João Santos - São Paulo - Brasil
- Antonio Linares
- Site Admin
- Posts: 37481
- Joined: Thu Oct 06, 2005 5:47 pm
- Location: Spain
- Contact: