fijate bien....
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....
|