有没有自动判断是否输入是数字的控件?谢谢 ( 积分: 20 )

  • 主题发起人 主题发起人 snowdog
  • 开始时间 开始时间
S

snowdog

Unregistered / Unconfirmed
GUEST, unregistred user!
有没有类似TEdit的一种控件,能够自动判断是否输入是数字?谢谢
 
判断是否输入数字, 这个在OnKeyPress很容易判吧。。。
 
OnKeyPress用这个控件麻烦,有一个控件可是判断是专门输入数字,有Ehilb中的DBNumberEditEh1这个控件就是输入数字的!
 
TEdit
OnKeyPress
if not (key in ['0'..'9',#13]) then
key=#0;
 
只需要一行代码就可以了,还是自己写写吧,为了这一行代码还得装个第三方控件不值得。
 
个人感觉还是DBNumberEditEh1好点,很好控制,小数位数,edit不好,比如要输成‘12565.256.256’也许不好判断
 
是的,推荐用Ehlib之dbnumberEditEh,可以了限制只输入数字,即使不这样,也可以参考这个控件的源码。
 
http://www.delphibbs.com/delphibbs/dispq.asp?lid=3840307
 
在程序启动时加一句:
SetWindowLong(Edit1.Handle, GWL_STYLE, GetWindowLong(Edit1.Handle, GWL_STYLE) or ES_NUMBER);
 
To ufo!:
如果想要可以输入小数点,你上面的的程序要怎么改?
 
你看看和 ES_NUMBER 一起的其他参数,我不知道是否支持小数点。
 
delphi 自带 spinedit
 
TcxCurrencyEdit
 
TMaskEdit,delphi自带的
 
加小数点
OnKeyPress
if not (key in ['0'..'9',#13,'.']) then
key=#0;
 
后退
顶部