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

Hola como estas,


On KEY LABEL tecla IIF(TYPE("_SCREEN.ACTIVEFORM..Boton")=="O",
_SCREEN.ACTIVEFORM..Boton,'')

Saludos


José G. Samper

"Sanchez Arnoletto Martin Rodrigo" escribió en el
mensaje news:%

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


Saludos...



Ing. Martin Rodrigo Sanchez Arnoletto
Islas Baleares - España

Muchisimas gracias Esparta, has llegado a la conclusión que yo. He podido
hacerlo andar con cualquier tecla excepto el F10. Mi problema es que estoy
reemplazando un programa DOS en donde las operaciones las resumen todas con
F10, pero bue, se tendran que acostumbrar a otra tecla. Otra question:
¿Cual es el inconveniente de llamar al evento directamente??

Gracias desde ya

Saludos...



Ing. Martin Rodrigo Sanchez Arnoletto
Islas Baleares - España

Gracias Jose, es otra alternativa viable, y esa si funciona con el F10

Desde ya muy agradecido


Saludos...



Ing. Martin Rodrigo Sanchez Arnoletto
Islas Baleares - España


"José G. Samper" escribió en el mensaje
news:

Hola como estas,


On KEY LABEL tecla IIF(TYPE("_SCREEN.ACTIVEFORM..Boton")=="O",
_SCREEN.ACTIVEFORM..Boton,'')

Saludos


José G. Samper

"Sanchez Arnoletto Martin Rodrigo" escribió en

el

mensaje news:%
> 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
>
>
> Saludos...
>
>
>
> Ing. Martin Rodrigo Sanchez Arnoletto
> Islas Baleares - España
>
>
>

trata lo siguiente
en el programa principal digita la siguiente
on key label f10 keyb chr(28) &&esta tecla es la f2 pondrias la que te
convenga

y en el keypress controlas la tecla que quieras que le reasignaste a la
tecla f10



PortalFox :: Nada corre como un zorro
http://www.portalfox.com

PortalFox - NNTP Forum Gateway