Teclado Virtual Especial

[ShiruXE]

Hola

Estoy usando Firemonkey en Delphi XE5

He diseñado un teclado virtual para android que sustituye al que viene de serie y se utiliza en una aplicacion.

el teclado se lanza mediante el evento onclick del Tedit que se quiere editar.

El teclado emplea todo el espacio de la pantalla del dispositivo. Consta de varias capas de teclas y un Tedit que muestra lo que se se copiara al Tedit en edicion.

Mi problema es que no he sido capaz de emular la funcion de tecla backspace y borrar un caracter desde la posicion del caret igual que hariamos con el teclado.

he tratado de hacerlo con el procedure "delete" sobre un string temporal pero este procedure borra de izquierda a derecha y deberia ser a la inversa.

¿Alguien ha conseguido hacer lo que pretendo?

Agradezco cualquier sugerencia que me ayude a atajar el problema

Gracias

[feliz-58]

Prueba esto y me dices

Código Delphi [-]
Formulario1.Edit1.Text:=copy(Formulario1.Edit1.Text,1,length(Formulario1.Edit1.Text)-1);

Saludos!