Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Conexión con bases de datos (https://www.clubdelphi.com/foros/forumdisplay.php?f=2)
-   -   Mensajes de error (https://www.clubdelphi.com/foros/showthread.php?t=32230)

erick_jesus 31-05-2006 16:43:05

Mensajes de error
 
: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 31-05-2006 17:53:47

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
Código Delphi [-]
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.


La franja horaria es GMT +2. Ahora son las 10:57:00.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi