怎样让EDIT中只能输入数字？详细一点，急用！！比给分

怎样让EDIT中只能输入数字？详细一点，急用！！比给分 问题点数：100、回复次数：10Top

1 楼netlib（河外孤星）回复于 2002-07-15 09:07:08 得分 20

在onkeypress中写  
   
  if   not   key   in   ('1'..'9','.')   then  
  begin  
      key:=#0;  
      beep;  
  end;Top

2 楼hjd_cw（）回复于 2002-07-15 09:09:10 得分 10

procedure   TForm1.Edit1KeyPress(Sender:   TObject;   var   Key:   Char);  
  begin  
      if   (key   <   '0')   or   (key   >   '9')   then  
            begin  
                    showmessage('输入错误');  
   
            end;  
  end;  
  Top

3 楼robinhunter（深空）回复于 2002-07-15 09:09:12 得分 10

procedure   TForm1.Edit1KeyPress(Sender:   TObject;   var   Key:   Char);  
  begin  
          if   (key<'0')   or   (key>'9')   then   key:=#0;  
  end;Top

4 楼wolfAone（30，奋斗成男人）回复于 2002-07-15 09:10:03 得分 10

在Edit的KeyPress事件中输入以下代码：              
  if   Not(Key   in   ['0'..'9','.',#8])   then  
  begin  
          Key:=#0;  
          Beep;  
  end;  
  Top

5 楼yansea（思宏）回复于 2002-07-15 09:10:28 得分 10

在onchange或者onexit中写，别的事件对copy、paste进来的没用。  
  简单些就这样  
  begin  
      try  
          strtoint(edit1.text);  
      except  
          showmessage('no');  
          edit1.setfocuse;  
      end;  
  end;Top

6 楼netlib（河外孤星）回复于 2002-07-15 09:11:10 得分 10

不好意思，刚写错了。  
  if   not   (key   in   ['1'..'9','.'])   then  
  begin  
      key:=#0;  
      beep;  
  end;  
  Top

7 楼pekiee（绿光(Up 2U)）回复于 2002-07-15 09:15:12 得分 10

可以用MaskEdit   简单方便Top

8 楼luoweicaisd（笑三少）回复于 2002-07-15 09:15:21 得分 10

不用我说了吧。Top

9 楼l_xiaofeng（行到水窮處,坐看雲起時!）回复于 2002-07-15 09:16:09 得分 10

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

10 楼LiGun（^_^ 中国心_HSK ^_^）回复于 2002-07-15 09:24:30 得分 0

揭贴了，谢谢Top

相关问题

• thenbegin
• beep
• edit
• keypress
• key
• begin
• then

• 帖主：LiGun
• netlib
• hjd_cw
• robinhunter
• wolfAone
• yansea
• netlib
• pekiee
• luoweicaisd
• l_xiaofeng

• Delphi类图书
• Delphi类源码下载
• Delphi控件下载