Hola a todos/as, tengo un percance con un DBEdit, espero puedan ayudarme.
Estoy usando (DELPHI) ADOTable, y que al hacer doble click en la Tabla, y elegir un campo e ir a Properties en la sección EditMask coloqué:
El cual solo permita ingresar 3 letras separados por un "guion" y seguido 3 números.
Como muestro aqui un Ejemplo, asi me permite ingresar ejecutando:
El problema es si por alguna razón tan solo coloco parte de la sigla:
Al ir a otro campo a ingresar datos,
quiero que me aparezca un error personalizado, ya que por ahora me aparece este error:
Cita:
Invalid input value. Use escape key to abandon changes
|
Este es mi código
Código Delphi
[-]
procedure TFmateria.CodigoMExit(Sender: TObject);
begin
if length(CodigoM.Text) = 7 then
begin
with Query1 do
begin Close;
end; end
else
MessageDlg('Ingrese la sigla completa',mtError,[mbOk],0);
end;
Como es maskEdit(___-___), no hay espacion vacios y siempre será 7 la longitud.
Alguien puede ayudarme?
//Ya no estoy usando EXception, deshabilité (Stop on Delphi Exceptions)
Saludos