FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Sustituir punto por coma
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 Código:
if Ord(Key)=VK_DECIMAL then Muchas gracias Carlos Arevalo
__________________
Carlos Arevalo MSN Messenger: carlos@arevalo.com.ve |
#2
|
||||
|
||||
Key := ','
// Saludos |
#3
|
||||
|
||||
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.... |
#4
|
|||
|
|||
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.
__________________
Carlos Arevalo MSN Messenger: carlos@arevalo.com.ve |
|
|
|