Sustituir punto por coma

[Carlos Arevalo]

Buenas amigos del foro espero que todos esten bien.

Nuevamente recurro a Ud. con una nueva inquietud la siguiente se refiere a como podria utilizando un Tedit capturar la tecla VK_DECIMAL del teclado numerico al momento de presionarla y luego en el Tedit en vez de ver ("." punto) se vea ("," coma).

Para capturar la tecla estoy utilizando el evento onKeyPress y

if Ord(Key)=VK_DECIMAL then

Pero no tengo idea de como sustituir el caracter presionado por por otro que yo quiera.


Muchas gracias

Carlos Arevalo

[roman]

Key := ','

// Saludos

[fredo]

xxxKeyPress(Sender: TObject; var Key: Char)

si te fijas vasta con cambiarle el valor a la variable key para sustituirla por la que quieras.... saludos.

osea


if Ord(Key)=VK_DECIMAL then key:=',';

o

if Key = '.' then Key = ','

la palabra reserbada var acompañando al parametro indica que el valor que asignes se conservara aun despues de la ejecucion del procedimiento, ya que es un parametro varuable....

[Carlos Arevalo]

Pido disculpas realmente lo hice asi al principio pero por un error en el codigo no me funciono.

uno se pone tapao de vez en cuando.

Pero ya esta listo.

Muchas gracias.