怎样设置edit控件只能输入时间型数据(要有固定格式)?

Question

   一定要用edit吗？
   Datetimepicker不好吗？
   在程序中可以把他们都转换成int型，之后就可以进行比较了。

Answer 1

最好是用datetimepicker，如果一定要用edit
在keypress事件中
  case length(edit1.text) of
    4, 7: if Key <> '-' then Key := #0;
    10: Key := #0;
  else
    if not(Key in ['0'..'9']) then Key := #0;
  end;
可以保证输入的是****-**-**格式，*表示任何数字

Answer 2

1.用tmaskEdit设置editmask属性
2.用datetimepicker
设置atetimepicker的mask