简单问题:控制TEdit只能输入数字的代码或方法...

1.VB中用代码我知道如何实现,但Delphi中不知道,因为初学Delphi.  
  2.请高手给出如何控制TEdit控件只能输入数字的代码或方法???(渴求!)  
  3.一解决便结帖..(在线等) 问题点数：20、回复次数：3Top

1 楼insert2003（高级打字员）回复于 2004-08-02 15:54:01 得分 10

KeyPress事件  
   
  if   not   (key   in   ['0'..'9','.',#8])   then   key   :=   #0;Top

2 楼insert2003（高级打字员）回复于 2004-08-02 15:56:26 得分 10

'0'..'9'表示只能输入数字  
  '.'表示小数点  
  #8表示退格键Top

3 楼cqm2099（~人生小弟~）回复于 2004-08-02 15:58:32 得分 0

OK,,谢谢了!~  
  跟VB的原理一样,但写法更简单了!~Top

相关问题

• 代码
• 数字
• 控制
• vb
• 只能输入数字
• 控制tedit
• 简单
• 代码或方法
• 表示
• 知道

• 帖主：cqm2099
• insert2003
• insert2003

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