Sustituir punto por coma

[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.