Anónimo
¿Aparece símbolo Y en teclas porgramadas onKey?
Saludos Expertos en Fox, tengo un problema, he utilizado la siguiente. Instrucción:
do case
case nkeycode = -6 && F7 Buscar H.C
Thisform.cmdHelp_Busqueda.click
case nkeycode = -7 && F8 nueva historia
Thisform.cmdNuevo.click
Endcase
Para utilizarlo en crear nuevo registro y buscar, cuando presiono F8 me habilita una hoja nueva, pero en el primer campo me aparece el símbolo Y, igualmente al presionar F7 para realizar la búsqueda y luego de que me aparece la ventana de ayuda y no seleccionar nada y presionar la tecla esc me aparece el símbolo Y. Pero si utilizo el evento click con el mouse sobre los comando allí no me aparece el símbolo, solo cuando utilizo las teclas. Por favor si alguien me pueda ayudar indicándome donde es mi error se lo agradecería eternamente. Gracias de antemano
do case
case nkeycode = -6 && F7 Buscar H.C
Thisform.cmdHelp_Busqueda.click
case nkeycode = -7 && F8 nueva historia
Thisform.cmdNuevo.click
Endcase
Para utilizarlo en crear nuevo registro y buscar, cuando presiono F8 me habilita una hoja nueva, pero en el primer campo me aparece el símbolo Y, igualmente al presionar F7 para realizar la búsqueda y luego de que me aparece la ventana de ayuda y no seleccionar nada y presionar la tecla esc me aparece el símbolo Y. Pero si utilizo el evento click con el mouse sobre los comando allí no me aparece el símbolo, solo cuando utilizo las teclas. Por favor si alguien me pueda ayudar indicándome donde es mi error se lo agradecería eternamente. Gracias de antemano
1 respuesta
Respuesta de junio0or
1
Mmm considero que tu error, es por que no puedes poner nKeyCode ya que esto no es una función de fox por default, por lo que tienes que hacer es en el evento keypress de tu formulario, tienes que poner
F1 28
F2 -1
F3 -2
F4 -3
F5 -4
F6 -5
F7 -6
F8 -7
F9 -8
F10 -9
F11 133
F12 134
if lastkey() = -7
Messagebox("Presiono la tecla")
Endif
Prueba y me dices
F1 28
F2 -1
F3 -2
F4 -3
F5 -4
F6 -5
F7 -6
F8 -7
F9 -8
F10 -9
F11 133
F12 134
if lastkey() = -7
Messagebox("Presiono la tecla")
Endif
Prueba y me dices