presionar un botón al presionar F10

Martín, hice la siguiente prueba...

PUBLIC oForm
oForm = CREATEOBJECT("MyForm")
oForm.Show()
DEFINE CLASS myForm AS FORM
ADD OBJECT MyLabel AS Label WITH Left,Top,;
Caption="Presione la tecla F10",Autosize=.T.
KeyPreview=.T.
PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
MESSAGEBOX("Presiono algo!!"+chr(13)+STR(nKeyCode))
IF nKeyCode=-9
This.MyCustomMethod()
ENDIF
ENDPROC
PROCEDURE MyCustomMethod
MESSAGEBOX("Ha presionado la tecla F10")
ENDPROC
ENDDEFINE

Me sorprendió ver que la tecla F10 no activara al evento KeyPress del
formulario, pero después de un rato me dí cuenta el por qué, resulta que
esa tecla es la estándar para activar el Menu de cualquier aplicación
Windows, si lo revisas, en cualquier aplicación, si presionas F10
activaras el menu, esto como un atajo cuando no se tiene mouse.
Mi recomendación es que cambiaras esa tecla.
Por otro lado, no es buena recomendación de que los mandes a llamar
eventos, sino métodos, así pues, te recomendaría que tuvieras un método en
común, con el cual, ambos, tu KeyPress y tu Click mandaran a ejecutar la
función específica.

Lo que busco amigos mios, es alguna forma de hacer una clase en la que un
botón se presione automáticamente al presionar la tecla F10. Algo así como
las propiedades Default --> Relacionado al enter y Cancel --> Relacionado al
escape, pero en especial para la tecla F10. ¿Alguna idea?


Gracias desde ya

ž,ø€º°`°º€ø,žž,ø€º°`°º€ø,žž,ø€º°`°º€ø,žž,ø€º°`°º
Espartaco Palma Martínez
SysOp PortalFox.com
email:mexicoSINSPAM[Arroba]portalfox.com

-
PortalFox :: Nada corre como un zorr
http://www.portalfox.co

PortalFox - NNTP Forum Gatewa