Mensajes de error

[erick_jesus]

:rolleyes: Que podemos hacer para que en un DBEdit de valor numerico
si se comete el error de poner texto nos mande un mensaje a la pantalla
que nos diga que solo se puede introducir un valor numerico

[Lepe]

Si es un DBEdit, jamás va a poder introducir una letra,solo deja introducir números.

En otros casos he hecho algo parecido a esto:

En el KeyUp del TEdit

const
ChrValidos: Tcharset = ['0'..'9', ',']; // solo números y coma decimal
begin
if not (key in ChrValidos) then
begin
key := #0; // invalidamos la tecla
BalloonHint1.Show('No se permite esa tecla',TControl(Sender);
end;
end;

Cuando se pulsa una tecla que no pertenece al rango, invalidamos la tecla y mostramos un Hint mejorado (como los bocadillos de los comics), apuntando al control donde está el "error". De esta forma el usuario no tiene que cerrar ventana alguna y puede corregir el error. El BalloonHint se cierra pasados 3 segundos.

En la JVCL se llama JvBalloonHint, pero en torrys.net seguro que encuentras muchos de este tipo.

Saludos.