FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Simular soltar y oprimir una tecla
Posts: 2170
Joined: Fri Jul 18, 2008 01:24 AM
Simular soltar y oprimir una tecla
Posted: Mon Oct 22, 2012 02:13 PM
Hola amigos, tal vez alguien ya lo ha hecho y pueda compartirlo.

Necesito simular soltar e inmediatamente oprimir por ejemplo la tecla SHIFT mientras ésta se encuentra oprimida.
Es decir, sin soltar la tecla SHIFT, simular via codigo que se ha soltado y que inmediatamente se ha oprimido nuevamente.

Lo que quiero hacer es llamar a una function de validacion mientras el usuario mantiene oprimida la tecla SHIFT y accionando la tecla KEY_DOWN sobre un XBROWSE. Esta function será llamada después de cada accionar de la tecla KEY_DOWN (flecha-abajo).

Seudo-codigo:
If nKey == VK_DOWN .and. GetKeyState(VK_SHIFT)
oBrw:SendMsg(Soltar tecla)
oBrw: SendMsg(Oprimir tecla)
endif

Alguna sugerencia, o idea?
Gracias de antemano.

Saludos.
Francisco J. AlegrĂ­a P.

Chinandega, Nicaragua.



Fwxh-MySql-TMySql
Posts: 1515
Joined: Thu Oct 30, 2008 02:37 PM
Re: Simular soltar y oprimir una tecla
Posted: Mon Oct 22, 2012 04:05 PM

Francisco,

If nKey == VK_DOWN .and. GetKeyState(VK_SHIFT)
LLamarAFuncionDeValidacionAquiMismo()
endif

Saludos

Posts: 2170
Joined: Fri Jul 18, 2008 01:24 AM
Re: Simular soltar y oprimir una tecla
Posted: Mon Oct 22, 2012 04:44 PM
hmpaquito wrote:
If nKey == VK_DOWN .and. GetKeyState(VK_SHIFT)
LLamarAFuncionDeValidacionAquiMismo()
endif


hmPaquito, gracias por contestar.
Entiendo lo que sugieres. Asi lo tengo desde el xbrowse, pero lo que necesito es encontrar el modo de simular el soltar e inmediatamente volver a presionar la mencionada tecla sin que el usuario la suelte fisicamente.

SĂ© que podrĂ­a hacerlo, pero no encuentro algo como SendMsg(soltar-tecla) y SendMsg(presionar-tecla). Sigo buscando.
Saludos.
Francisco J. AlegrĂ­a P.

Chinandega, Nicaragua.



Fwxh-MySql-TMySql

Continue the discussion