Page 1 of 1

BtnGet

Posted: Sun Jan 06, 2008 6:38 am
by Mike Serra
Buenas foros, espero que os hayan traido muchas cosas los reyes magos, :) , yo me conformo con la clase btnget32. Me la bajé de http://www.box.net/shared/lck9effuyn#1:6315754, y tengo un problema, y es que cuando pulso sobre F2 que es la tecla que tiene asociada la ejecucion del ACTION, me ejecuta la funcion del action 2 veces, sin embargo si pulso el boton en vez del F2 funciona correctamente.

MUCHAS GRACIAS

FWH 7.12 + xHarbour

Posted: Sun Jan 06, 2008 7:22 am
by Antonio Linares
Mike,

Modifica esta línea en la clase TBtnGet:

::bKeyDown := { | nKey | If( nKey == VK_F2, ( Eval( ::bAction ), 0 ),) }

Posted: Sun Jan 06, 2008 7:26 am
by Mike Serra
Buenos Dias Antonio, y Gracias, funciono perfecto.

Saludos.