如何实现使文本框只能输入数字? 如何实现使文本框只能输入数字? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 在button的OnKeyPress 事件中写if key not in ['0'..'9'] then key=#0 楼上的不完善,还应该加上退格键在button的OnKeyPress 事件中写if not (key in [#8,'0'..'9']) then key:=#0; 在button的OnKeyPress 事件中写if not (key in [#8,'0'..'9']) then key:=#0; 乱码原因 如何得到TDBGrid当前批针的某列值 idTCPserver 如何向客戶端發送定長二進制防數據? delphi 中 如何调用浏览器 打开一个网页,并且保存网页的内容为txt文档 Delphi2007下Indy与Build的问题 OpenDialog问题,Winxp + Sp2 + Delphi6下! 如何实现象FOXMAIL查看邮件内容时的特别功能 *.dsm可以删掉吗 测试0.0001的帖子 !!jiangtao等高手那里去了,已经有几天没有得分的人了,到处都是问号。 为何我覆盖基类的虚方法后,不自动执行新写的覆盖方法? 感谢wcj86009大哥的帮助,请进来接分..
then key=#0
if not (key in [#8,'0'..'9']) then key:=#0;
if not (key in [#8,'0'..'9']) then key:=#0;