EditMask很烦,还不如自己写函数控制。
在Edit的KeyPress事件写事件控制。

解决方案 »

  1.   

    if (not (key in ['0'..'9'])) or (length(edit1.text)>2) then
      key:=#0;
      

  2.   

    if (not (key in ['0'..'9'])) or (length(edit1.text)>2) then
      key:=#0;这样做有点不好
    1. 不可以用" Back Space "键了
    2. 输入了两个就什么也改不了了
      

  3.   

    上面的 (length(edit1.text)>2)都有问题,可以输入三个数的
    改为:
     if not (key in ['0'..'9',#8]) then
       key:=#0
     else
       if (Length(Edit1.Text)>1) then
         if Not (Key in [#8,#46,#47,#39]) then
           Key:=#0;
      

  4.   

    还有如果用00;1;_呢?
    对了,是用MaskEdit,不是Edit。
    谢谢。