如何控制EDIT里只能输入数字、退格键、DEL键,其余键全部禁输入。

解决方案 »

  1.   

    if not (key in ['0'..'9',#8,#13]) then key := #0;
      

  2.   

    这是我做的控件包,里面的TDigitEdit就是干这个的。
    www.ifrance.com/man8888/myco.zip
    ================================================================CSDN 论坛助手 Ver 1.0 B0402提供下载。 改进了很多,功能完备!★  浏览帖子速度极快![建议系统使用ie5.5以上]。 ★  多种帖子实现界面。 
    ★  保存帖子到本地[html格式]★  监视您关注帖子的回复更新。
    ★  可以直接发贴、回复帖子★  采用XML接口,可以一次性显示4页帖子,同时支持自定义每次显示帖子数量。可以浏览历史记录! 
    ★  支持在线检测程序升级情况,可及时获得程序更新的信息。★★ 签名  ●  
         可以在您的每个帖子的后面自动加上一个自己设计的签名哟。Http://www.ChinaOK.net/csdn/csdn.zip
    Http://www.ChinaOK.net/csdn/csdn.rar
    Http://www.ChinaOK.net/csdn/csdn.exe    [自解压]
      

  3.   

    if not (key in ['0'..'9',#8,#13]) then key := #0;
    同意winsock2000(winsock
      

  4.   

    建议用MaskEdit控件,用鼠标右击该控件选择Input Mask Editor,在弹出的对话框设置即可。
      

  5.   

    if not (key in ['0'..'9',#8,#13]) then 
    begin
     key := #0;
     showmessage(‘注意,你刚才输入了错误字符!');
    end;