| 技术论坛 |
|
|
| ≡技术区≡ ① |
| DELPHI技术 |
| lazarus/fpc/Free Pascal |
| 移动应用开发 |
| Web应用开发 |
| 数据库专区 |
| 报表专区 |
| 网络通讯 |
| 开源项目 |
| 论坛精华贴 |
| ≡发布区≡ ② |
| 发布代码 |
| 发布控件 |
| 文档资料 |
| 经典工具 |
| ≡事务区≡ ③ |
| 网站意见 |
| 盒子之家 |
| 招聘应聘 |
| 信息交换 |
| 论坛信息 |
|||
|
| 导航： | 论坛 -> DELPHI技术 斑竹:liumazi,sephil | |||||
| 作者： |
|
2003/6/4 9:17:53 | ||||
| 标题： |
|
加入我的收藏 | ||||
| 楼主： | 怎样在EDIT中规定只能输入7个数字 多或少都会报错呢 ？ ---------------------------------------------- - |
|||||
| 作者： |
|
2003/6/4 9:38:22 | ||||
| 1楼： | 在EDIT 的 ONEXIT 的事件中加入如下代码 if length(edit1.text)<>7 then begin messagedlg('must be 7',mtwarning,[mbyes],0); edit1.setfocus; exit; end; 另外在EDIT的ONKEYPRESS 中进入输入字符限制,只接收数字. ---------------------------------------------- DELPHI要没落了！唉 |
|||||
| 作者： |
|
2003/6/4 9:44:14 | ||||
| 2楼： | if length(Trim(edit1.text)<>7 then //如果前字符串前后的空格不算的话这样 ---------------------------------------------- 我不会，所以我问，我会，所以想知道更多！ |
|||||
| 作者： |
|
2003/6/4 9:53:26 | ||||
| 3楼： | 两位老兄 我现在做的是如果EDIT中正好七位数的话 跟在EDIT后的一个按纽就得到焦点，但是现在发现的问题是，如果你不点按钮，而是用鼠标在EDIT中自己输入的七位数后点一下 ，就可以再向EDIT中输入多位数 ，这个问题怎么解决呢 procedure TFormMyself.Edit1Change(Sender: TObject); begin if length(edit1.text)=7 then bitbtn1.SetFocus; end; ---------------------------------------------- - |
|||||
| 作者： |
|
2003/6/4 10:52:32 | ||||
| 4楼： | 在edit里的onkeydown中写 if length(edit1.text)=7 then bitbtn1.SetFocus; ---------------------------------------------- 我不会，所以我问，我会，所以想知道更多！ |
|||||
| 作者： |
|
2003/6/4 15:21:26 | ||||
| 5楼： | 这样做好象就可以，我还没发现有错误！调试过了，应该没问题，GOOD LUCK！ procedure TForm1.Edit1Change(Sender: TObject); begin if length(edit1.Text)>7 then begin showmessage('only 7'); edit1.text:=copy(edit1.text,1,7); end; if length(edit1.text)=7 then button1.SetFocus; end; ---------------------------------------------- - |
|||||
| 信息 |
| 登陆以后才能回复 |
