在OnExit事件中加如下代码:
try
   StrToDate(EditMask.text);
except
 begin
   showmessage('无效的日期');
   EditMask.setfocus;
 end;
end;

解决方案 »

  1.   

    好像不行。
    即使不加try...except中的这段程序,也会有提示。我在TABLE的相关字段中设了EIDTMASK为日期型。我只想把报错的提示改为中文的。
      

  2.   

    试试在TTable的OnBeforePost中检查输入,OnPostError中处理错误!
    如果不行,你可以在Application.OnException中截获并处理异常!
      

  3.   

    你肯定是在DELPHI中调试的,你最好推出DELPHI再运行