edit控件有办法实现' - - '的输入格式吗？(输入格式，不是显示格式)

Question

我想用edit控件实现maskedit的显示格式还行啊,就是以____-__-__的方式让我录入日期,(就是在录入日期时,一直有分隔符'-')用maskedit会让我有很多局限,谢谢!

Answer 1

在edit的onkeypress事件中写控制代码不就可以了？
if key not in[0..9,#8] then
key:=#0;
if length(edit1.text)>3 then
edit1.text:=edit1.text+'-';
…………
if (length(edit1.text)>7) and (key <> #13) then
key:=#0;

Answer 2

Key是char类型的，我怎么编译不通过呢

Answer 3

在edit的onkeypress事件中写控制代码不就可以了？
if key not in[0..9,#8] then
key:=#0;
if length(edit1.text)>3 then
edit1.text:=edit1.text+'-';
…………
if (length(edit1.text)>7) and (key <> #13) then
key:=#0;

Answer 4

怎么不用maskedit控件呀，搞懂规则了就很简单了，什么都不用写。在additional控件页上面，放一个maskedit上去，点它的“EditMask”属性，里面就有日期的现成格式，你选择就行了。!99/99/00;1;_现在的人啊！！！工具本身都还没有搞清楚。

Answer 5

用maskedit有什么局限性？你说说看？？？