He intentado, las sugerencias....
Código Delphi
[-]
try
DataModule2.DespachoFECHA.Value:=StrToDate(MaskEdit1.text);
except
Application.MessageBox('Formato de fecha incorrecto','Atención',mb_Ok +mb_IconQuestion);
MaskEdit1.SetFocus;
end;
Y aún me sigue mandando errores: "Invalid Input Value", o al escribir fechas invalidas, pues arroja "15/15/15 is not a valid Date"....
También intenté crear la clase subalterna del MaskEdit como sugiere Roman
[left]
Código Delphi
[-] <div align="left"><div align="left">type
TMaskEdit = class(Mask.TMaskEdit)
protected
procedure ValidateError; override;
end;
TForm1 = class(TForm)
end;
implementation
procedure TMaskEdit.ValidateError;
begin
MessageBeep(0);
raise EDBEditError.Create('Formato incorrecto');
end;
end.div>div>
Pero ésta alternativa sólo no avisa nada....obviamente no deja que siga con los demás procesos que realizo, como Guardar, el cual está condicionado a la captura correcta de todos los datos; pero no dice que esté mal la entrada ni dice si no se ha escrito algo, obvio es funcional porque no aparecen los errores en inglés pero no los señala tampoco como lo escribimos....
Alguna sugerencia?? GRACIAS.....
{Saludos}