Validar números

Tengo el siguiente código para validar que la entrada de datos sean números reales, el problema es que si quiero borrar con la tecla retroceso no lo hace, unicamente me funciona con suprimir como hacer para que me acepte la tecla retroceso, supongo que hay que agrer su respectivo # en el intervalo aceptado pero no se cual, o si conoces una mejor manera para validar entrada de datos podrías explicarme de preferencia con un ejemplo, gracias:
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key in ['0' ..'9','.'] then
else
begin
key := #0;
end;
end;

1 respuesta

1
Respuesta de
Utiliza el componente FloatEdit de la librería "Trivial", la puedes encontrar en www.clubdelphi.com, hace lo que tu quieres sin tener que tocar código.
Saludos
Lo estuve buscando en la sección de componentes pero no lo encontré, ayuda por favor
Dime tu email y te lo mando
Saludos
sistemon@hotmail.com
En esta cuenta no te cabe, me ha devuelto el correo.
son 1.5mb
Saludos
Pues haber si sirve esta dice que tiene 3m de capacidad
sistemonkyz@latinmail.com
Lo siento, pero a esta cuenta le sucede lo mismo que a la anterior, me duvuelve el mensaje porque excede del limite de la capacidad de la cuenta.
Saludos
Añade un comentario a esta respuesta
Añade tu respuesta
Haz clic para o
Escribe tu mensaje
¿No es la respuesta que estabas buscando? Puedes explorar otras preguntas del tema Delphi o hacer tu propia pregunta: