Escribir Texto utilizando Numeros :)

[DTAR]

Hola gente... gracias ante todo....
Resulta que quiero hacer que una aplicacion pueda escribir palabras (letras) utilizando el teclado numerico..como lo hacemos cuando mandamos un mensaje de texto en nuestros celulares..
Ej:
Apretando 1 vece el numero 3 pongo la letra D
Apretando 2 veces el numero 3 pongo la letra E
Apretando 3 veces el numero 5 pongo la letra L
Apretando 1 vece el numero 7 pongo la letra P
Apretando 2 veces el numero 4 pongo la letra H
Apretando 3 veces el numero 9 pongo la letra I
Y asi formo DELPHI
alguno sabe de esto o se le ocurre alguna idea....(que no sea ponerle un timer a un procedimiento )

[[Caral]]

Hola DTAR
Se me ocurre:

Código Delphi [-]
IF edit1 = '1' then
edit1:= 'A';
IF edit1 = '11' then
edit1:= 'B';
IF edit1 = '111' then
edit1:= 'C';
IF edit1 = '2' then
edit1:= 'D';
IF edit1 = '22' then
edit1:= 'E';

Con esto se podria empezar a analizar el procedimiento.
Bueno es una idea.
Saludos

[DTAR]

Caral...
a esa idea habria que agregarle un timer como para que funcione...
si puede andar... pero me parece poco "elegante" jejeje
pero muchas gracias por el aporte y la buena onda...

[PabloTech]

A mi también me parece que hace falta un timer. Por ejemplo, para determinar si se pulsó una ó dos veces una tecla del ratón se usa un timer corto. Pero, brinda mas detalles sobre cómo te gustaría que funcione o qué otras teclas quieres utilizar.

Suerte...

[[Caral]]

Bueno
La verdad no se para que un timer?
No importa cuantas veces se pulse una tecla.
Si pulsas una vez el 1 pues te dara 1
Si pulsas dos veces el uno pues sera 11
Y asi sucesivamente, no entiendo la necesidad de un timer, para que?
Saludos

[PabloTech]

Paciencia amigos... Por eso pedía más detalles. Uds. dicen:

Si pulsas una vez el 1 pues te dara 1; y,
Si pulsas dos veces el uno pues sera 11, ...

Pero no aclaran que entre 1 y otro 11 ya pulsaron INTRO en dos oportunidades.

Sigamos...

[DTAR]

No entiendo lo del intro pero bueno...

que pasa si yo quiero poner la palabra "de"...
tengo que apretar 3 veces el numero 3...
o sea que voy a tener 111 y tendria la "f"
el timer seria para apretar 1 ves el 3 y poner la "d"
y con el timer pasar a la siguiente tecla y apretar 2 veces y tener 11 para la letra "e"....

[roman]

Les dejo un ejemplo más o menos funcional. No es muy elegante elegante, pero no usa un timer

Traté de comentar lo mejor posible el código porque el escribir la explicación se me estaba haciendo más complicado de lo que realmente es. Básicamente se toma el tiempo actual cada vez que se oprime una tecla y:

si es la misma tecla que la anterior y no se ha excedido un tiempo predeterminado, se escribe el siguiente caracter asociado a la tecla en el mismo lugar que el anterior. Si es otra tecla o ya se había excedido el tempo, entonces se escribe el primer caracter asociado a la tecla en la siguiente posición.

El ejecutable que viene en el zip sólo sirve si tienen instalado Delphi 7, si no, tiene que recompilar.

// Saludos