如何限制ＥＤＩＴ控件格式符合日期格式

Question

如何限制ＥＤＩＴ控件格式符合日期格式
如
2004-04-12
但是没有日期的时候可以输入0值跳过,但EDIT不能为空值
限定的是日期格式,不是当天日期,请写出代码

Answer 1

或者用maskedit，或者写完了判断一下，try  strtodate(edit1.text)

Answer 2

用 DateTimePicker Win32  面板

Answer 3

为什么这段代码输入字符时try不能跳过try
  StrToDate(Trim(Edit1.Text));
except
  Showmessage('Error!');
  Edit1.SetFocus;
  abort;
end;