| 技术论坛 |
|
|
| ≡技术区≡ ① |
| DELPHI技术 |
| lazarus/fpc/Free Pascal |
| 移动应用开发 |
| Web应用开发 |
| 数据库专区 |
| 报表专区 |
| 网络通讯 |
| 开源项目 |
| 论坛精华贴 |
| ≡发布区≡ ② |
| 发布代码 |
| 发布控件 |
| 文档资料 |
| 经典工具 |
| ≡事务区≡ ③ |
| 网站意见 |
| 盒子之家 |
| 招聘应聘 |
| 信息交换 |
| 论坛信息 |
|||
|
| 导航： | 论坛 -> DELPHI技术 斑竹:liumazi,sephil | |||||
| 作者： |
|
2004/4/23 23:55:02 | ||||
| 标题： |
|
加入我的收藏 | ||||
| 楼主： | 在EDIT文本框内输入字符,判断是数字,如果不是数字将其删除.谢谢 ---------------------------------------------- - |
|||||
| 作者： |
|
2004/4/24 0:00:48 | ||||
| 1楼： | 好像有一个函数可以转换字符为ASSIC码的，判断它是不是在ASSIC码数字0-9的范围内吧，要做循环，很麻烦，不知有没有其它的好办法。 ---------------------------------------------- ----------- 芳草佳，碧水花，扁舟几许流天涯， 风柳轻，春雨明，镜湖小亭话柔情。 身飘零，心惆怅，六朝古都梦黄梁， 悔前昔，未执仗，广陵曲散成绝响。 |
|||||
| 作者： |
|
2004/4/24 0:13:11 | ||||
| 2楼： | 希望大家给予帮忙,谢谢. 最好赐教原代码,谢谢 ---------------------------------------------- - |
|||||
| 作者： |
|
2004/4/24 0:21:19 | ||||
| 3楼： | 晕，如果只要输入一个数字就好办一些，如果是比较大的数字...... 很显然不能用StrtoInt，会报错......这个问题我要回去研究一下，我在网吧，下周如果能来的话给你答复 ---------------------------------------------- ----------- 芳草佳，碧水花，扁舟几许流天涯， 风柳轻，春雨明，镜湖小亭话柔情。 身飘零，心惆怅，六朝古都梦黄梁， 悔前昔，未执仗，广陵曲散成绝响。 |
|||||
| 作者： |
|
2004/4/24 7:33:30 | ||||
| 4楼： | 谢谢,我热切期盼您的答复 ---------------------------------------------- - |
|||||
| 作者： |
|
2004/4/24 8:13:18 | ||||
| 5楼： | 见附件
- |
|||||
| 作者： |
|
2004/4/24 9:03:41 | ||||
| 6楼： | 在onkeypress事件里加上 if not (key in ('0','1','2','3','4','5','6','7','8','9','0',#8)) then edit.clear; ---------------------------------------------- 平平淡淡才最真 |
|||||
| 作者： |
|
2004/4/24 9:32:20 | ||||
| 7楼： | 6楼的朋友，都写成这样了为什么来了个虎头蛇尾呢！这样改下就最好了！ if not (key in ['0'..'9',#8]) then begin key:=#0; MessageBeep(1); end; ---------------------------------------------- - |
|||||
| 作者： |
|
2004/4/24 9:38:16 | ||||
| 8楼： | 呵呵，我很菜 ---------------------------------------------- 平平淡淡才最真 |
|||||
| 作者： |
|
2004/4/24 10:11:18 | ||||
| 9楼： | 试试这个，与众不同哦 ：） procedure TForm1.FormCreate(Sender: TObject); var fstyle: dWord; begin fstyle := GetWindowLong(Edit1.Handle, GWL_STYLE); SetWindowLong(Edit1.Handle, GWL_STYLE, fstyle or ES_NUMBER) end ---------------------------------------------- - |
|||||
| 作者： |
|
2004/4/24 10:51:25 | ||||
| 10楼： | 楼上的方法不错的 不过如果Ctrl+V就不行了 ---------------------------------------------- Click here to redirect to my home Click here to redirect to my blog |
|||||
| 作者： |
|
2004/4/24 11:37:15 | ||||
| 11楼： | 能不能用maskedit解决很方便的 ---------------------------------------------- - |
|||||
| 作者： |
|
2004/4/24 13:00:14 | ||||
| 12楼： | 如果想控制输入字符的个数该怎么办啊? ---------------------------------------------- - |
|||||
| 作者： |
|
2004/4/24 13:16:41 | ||||
| 13楼： | to 12楼:MaxLength用来限制输入的字符数. ---------------------------------------------- -相互学习,共同进步! |
|||||
| 作者： |
|
2004/4/24 15:32:40 | ||||
| 14楼： | 老掉牙的问题，在论坛里搜索一下，一大堆 ---------------------------------------------- - |
|||||
| 作者： |
|
2004/4/24 17:52:25 | ||||
| 15楼： | 谢谢13楼 还有点问题就是IF语句后边的#8代表什么啊? ---------------------------------------------- - |
|||||
| 作者： |
|
2004/4/28 23:08:39 | ||||
| 16楼： | 谢谢大家，我已经实现了 ---------------------------------------------- - |
|||||
| 作者： |
|
2004/4/29 8:46:14 | ||||
| 17楼： | 你可以强制的限制只能是数字才能输入啊 ---------------------------------------------- masow |
|||||
| 信息 |
| 登陆以后才能回复 |
