Como hacer un teclado virtual en delphi?

[cocute]

Empezado por engranaje

Puedes revisar este ejemplo que Peter Below publicó hace algún tiempo en:
http://cc.embarcadero.com/item/18590

Lo cierto es que necesitas el handle de la ventana a la que enviar las teclas y la mejor manera es utilizar foreground enviandola a la ventana activa pero para ello debes conseguir que la ventana en la que está el teclado nunca pueda obtener el foco y pasar a ser la activa. El ejemplo del link debería servirte de ayuda para poder conseguirlo, revisa la clase TNumericKeypad.

Muchas gracias, había probado un montón de ejemplos pero el que me pones es el único que he conseguido hacer funcionar como esperaba.

[cocute]

Con ese ejemplo lo he modificado para el modo que lo necesito,
el problema que no se por qué
hay veces que funciona y otras veces tengo que hacer click en el icono de la barra de tareas para que funcione,
hay algo mal, pero el codigo del ejemplo es tan complicado que no se que es lo que falla:
a ver si alguno veis el fallo:
https://dl.dropboxusercontent.com/u/18024062/Prueba.rar

Además, seguro que hay un modo menos complicado de hacer esto pero no encuentro otro modo de que funcione.

[cocute]

Aunque seguramente no sea el mejor modo ya más o menos lo he conseguido que haga lo que quiero,
añadiendo al FormShow
NumericKeypad.WindowState:=WSMinimized;
NumericKeypad.WindowState:=WSNormal;