|
En el evento OnKeyPress miras el valor de Key y si no es un número lo pones a #0. También deberás controlar el mensaje WM_PASTE para evitar que puedan pegar del portapapeles texto con letras, y quizá algún otro detalle que se me olvida.
O también puedes facilitarte la vida y usar por ejemplo el TCurrencyEdit de la biblioteca RX.
// Saludos
|