usando la Tecla F1 para otras funciones

usando la Tecla F1 para otras funciones

Postby Loren » Tue Nov 13, 2007 4:27 pm

estimados compañeros

¿ Se le puede asignar a la tecla F1 otra función que no sea la de ayuda ?
Probé con SetKey( VK_F1, { || (mifuncion()) })
pero no me dio resultado...
¿ Que otra solución tendría ?

mil gracias.
LORENZO.
Loren
 
Posts: 479
Joined: Fri Feb 16, 2007 10:29 am
Location: Cadiz - España

Postby QAZWSX2K » Tue Nov 13, 2007 6:01 pm

recuerda incluir el inkey.ch sino pensaras que no lo tomo, me ha pasado
Software especializado para oficinas contables con grandes volumenes de Informacion
Impresion de todos los formularios del Seniat, Dian

alex_patino74@hotmail.com
whatsapp 57+3214777217
User avatar
QAZWSX2K
 
Posts: 364
Joined: Tue Oct 25, 2005 7:06 pm
Location: Bogota - Caracas

Postby cuatecatl82 » Tue Nov 13, 2007 6:34 pm

Saludos Loren:

Yo lo hago así:

1.- Busca en la carpeta de tu fivewin: FWH\source\winapi\ el archivo HELP32.prg, pon comentarios las lineas donde dice:
MsgStop( "No Help file available", " Attention" )
ya que por defecto al presionar la tecla F1 busca un archivo de ayuda definido por el usuario y si no esta muestra el mensaje de error, son 4 lineas a comentar (41,64,81 y 96, puede estar en otras lineas), una vez modificado el archivo agregalo a tu proyecto con tu generador de aplicaciones.

2.- En tu programa principal la cabecera #Include "VKEY.CH", agrega esta linea despues de la funcion main()
SET Key VK_F1 TO Ayuda()

en este caso hace referencia al modulo ayuda, el cual puede ser cualquier funcion:

//-------------------------------------------------------------//
FUNCTION Ayuda()

msginfo("¡¡ NO HAY AYUDA !!"+CRLF+CRLF+"En Construcción" ,"Prueba de Ayuda")

RETURN NIL

Compila tu aplicacion y prueba presionando la tecla..

A mi me funciona y tengo mi módulo de ayuda independiente de la aplicacion, solo haces referencia a ella con las modificaciones que te indico.

Si tienes dudas no dudes en contactarme y con gusto te ayudo:

www.sisa.unlugar,com
danyleon82@hotmail.com

Saludos... :lol:


[/b]
User avatar
cuatecatl82
 
Posts: 625
Joined: Wed Mar 14, 2007 6:49 pm
Location: San Cristobal de las Casas, Chiapas México


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: No registered users and 17 guests