| Ver tema anterior :: Ver tema siguiente |
| Autor |
Mensaje |
jaquemate
Lt Cmdr
Registrado: 30 Sep 2002Mensajes: 110
|
 Publicado: Dom 30 Nov, 2003 9:20 pm Asunto: Mensaje de error de MaskEdit |
 |
|
Saludos a todo el foro, a ver si alguien puede responderme a este problema:
Tengo un TDBEdit que está enlazado a un TField para la guardar el número de cuenta bancaria (CCC), y cuya propiedad MaskEdit es 0000\-0000\-00\-0000000000;1;_
Pues bien, cuando el usuario deja el foco del TDBEdit, aparece la siguiente excepción EDBEditError con el mensaje "Invalid input value. Use escape key to abandon changes".
La pregunta es cómo puedo controlar ese mensaje que aparece en inglés para poder mostrar mi propio mensaje de error. Algo así como "El número de cuenta no es correcto." He probado con creo que todos los eventos tanto de TDBEdit como del TField y el TDataSource, pero nada.
Un saludo. |
|
| Volver arriba |
|
 |
_Leo
Site Admin
Registrado: 11 Ago 2002Mensajes: 1875Ubicación: Lanzarote - Islas Canarias (España)
|
| Publicado: Lun 01 Dic, 2003 12:22 am Asunto: |
|
|
Añade el componente TApplicationEvents (pestaña: Additional) a tu Form y en su evento OnException pon lo siguiente:
| Código: | if (E->ClassNameIs("EDBEditError")
//&& Screen->ActiveControl == DBEdit1 // si quieres que solo salte en ese edit
&& E->Message.Pos("Invalid input value"))
{
Application->MessageBox("El número de cuenta no es correcto.",
Application->Title.c_str(), MB_ICONERROR);
}
else
{
Application->ShowException(E);
} |
|
|
| Volver arriba |
|
|
|
FAQ
Buscar
Miembros
Grupos de Usuarios
Registrarse
Perfil
Entra para ver tus mensajes privados
Entrar
