| 技术论坛 |
|
|
| ≡技术区≡ ① |
| DELPHI技术 |
| lazarus/fpc/Free Pascal |
| 移动应用开发 |
| Web应用开发 |
| 数据库专区 |
| 报表专区 |
| 网络通讯 |
| 开源项目 |
| 论坛精华贴 |
| ≡发布区≡ ② |
| 发布代码 |
| 发布控件 |
| 文档资料 |
| 经典工具 |
| ≡事务区≡ ③ |
| 网站意见 |
| 盒子之家 |
| 招聘应聘 |
| 信息交换 |
| 论坛信息 |
|||
|
| 导航： | 论坛 -> DELPHI技术 斑竹:liumazi,sephil | |||||
| 作者： |
|
2003/12/12 15:30:58 | ||||
| 标题： |
|
加入我的收藏 | ||||
| 楼主： | 急用~！~！ ---------------------------------------------- - |
|||||
| 作者： |
|
2003/12/12 15:49:26 | ||||
| 1楼： | procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin if not (Key in ['0'..'9']) then Key := Chr(0); end; ---------------------------------------------- Click here to redirect to my home Click here to redirect to my blog |
|||||
| 作者： |
|
2003/12/12 16:52:54 | ||||
| 2楼： | 楼上的做法好像有问题 当按拴除键的时候怎么办呢?? 结果是什么也不干 ---------------------------------------------- 愿生命不再飘零－－－－ 愿岁月的季节不再枯竭－－－ |
|||||
| 作者： |
|
2003/12/12 17:04:09 | ||||
| 3楼： | 那你这样啊 if (Key in ['A'..'Z', 'a'..'z']) then Key := Chr(0); ---------------------------------------------- Click here to redirect to my home Click here to redirect to my blog |
|||||
| 作者： |
|
2003/12/12 17:14:59 | ||||
| 4楼： | ---------------------------------------------- - |
|||||
| 作者： |
|
2003/12/12 17:28:48 | ||||
| 5楼： | 非得 偶来写吗 真让 偶不省心： procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin edit1.ReadOnly :=false; if (key<48) or (key>57) then begin edit1.ReadOnly :=true; if (key=8) or (key=46) then edit1.ReadOnly :=false; end; end; ----------------------------------------------  
|
|||||
| 作者： |
|
2003/12/12 17:32:14 | ||||
| 6楼： | 楼上的,太复杂了吧,呵呵 偶只要一行代码耶 :) ---------------------------------------------- Click here to redirect to my home Click here to redirect to my blog |
|||||
| 作者： |
|
2003/12/12 17:54:36 | ||||
| 7楼： | 倒 人家要的是 只能输入 数字！ 而且人家说了 要控件 backspace 和delete 也要能用！ ----------------------------------------------
|
|||||
| 作者： |
|
2003/12/12 18:03:28 | ||||
| 8楼： | if (Key in ['A'..'Z', 'a'..'z']) then Key := Chr(0); 如果按下的键是'A'-'Z','a'-'z'那么取消按键 嘿嘿 这个代码只屏蔽a-z,A-Z 看清楚哦~ ---------------------------------------------- Click here to redirect to my home Click here to redirect to my blog |
|||||
| 作者： |
|
2003/12/12 21:02:26 | ||||
| 9楼： | 晕，看清楚目的，是“只要数字”，不是“不要字母”哦 俺一句话搞定： if not (key in [#48..#57,#8]) then key:=#0 {如果不是0到9和退格键无效} ---------------------------------------------- 秋风清 秋月明，几上闲琴黯生尘。 夜来忽忆少年事，陌上柳绿草青青。 相逢一笑言未语，携手相看自倾心。 二十二载云烟里，云含风韵烟含情。 风尘渺落风霜浸，但闻长空雁长鸣。 姿容如花颜如玉，只在平生梦里寻。 秋风清 秋月明，秋灯秋雨愁煞人。 天涯路远人何在，午夜梦回空扰惊。 |
|||||
| 作者： |
|
2003/12/12 21:06:46 | ||||
| 10楼： | 不管他几句 这个又不是很难 能解决问题就行！ ----------------------------------------------
|
|||||
| 作者： |
|
2003/12/12 23:14:57 | ||||
| 11楼： | 哈哈，上面的方法我都用过，不过还是有问题的。大家复制一个数字，然后在这个Edit中粘贴一下，看看怎么回事？？ ---------------------------------------------- 米软科技有限公司  http://www.szmesoft.com
|
|||||
| 作者： |
|
2003/12/13 7:33:45 | ||||
| 12楼： | 要屏蔽右键菜单吗？好办! 新建一个空的PopupMenu1，然后设edit的PopupMenu属性设为PopupMenu1，就OK了! ---------------------------------------------- 秋风清 秋月明，几上闲琴黯生尘。 夜来忽忆少年事，陌上柳绿草青青。 相逢一笑言未语，携手相看自倾心。 二十二载云烟里，云含风韵烟含情。 风尘渺落风霜浸，但闻长空雁长鸣。 姿容如花颜如玉，只在平生梦里寻。 秋风清 秋月明，秋灯秋雨愁煞人。 天涯路远人何在，午夜梦回空扰惊。 |
|||||
| 作者： |
|
2003/12/13 8:33:47 | ||||
| 13楼： | 不是屏蔽右键菜单，而是要实现复制、粘贴功能，由于上面的代码连C,V都屏蔽了，所以就不能复制、粘贴。 ---------------------------------------------- 米软科技有限公司 http://www.szmesoft.com
|
|||||
| 作者： |
|
2003/12/13 10:07:18 | ||||
| 14楼： | 不用ctrl+v啊，用右键菜单也可以粘贴啊 ---------------------------------------------- 秋风清 秋月明，几上闲琴黯生尘。 夜来忽忆少年事，陌上柳绿草青青。 相逢一笑言未语，携手相看自倾心。 二十二载云烟里，云含风韵烟含情。 风尘渺落风霜浸，但闻长空雁长鸣。 姿容如花颜如玉，只在平生梦里寻。 秋风清 秋月明，秋灯秋雨愁煞人。 天涯路远人何在，午夜梦回空扰惊。 |
|||||
| 作者： |
|
2003/12/13 10:14:27 | ||||
| 15楼： | 不过我N(N差不多等于10了)年来都是用Ctrl+V的啊，用右键总不放心，怕在菜单上选择错了。 ---------------------------------------------- 米软科技有限公司 http://www.szmesoft.com
|
|||||
| 作者： |
|
2003/12/13 10:16:00 | ||||
| 16楼： | 对了，Del键不知能不能用？ ---------------------------------------------- 米软科技有限公司 http://www.szmesoft.com
|
|||||
| 作者： |
|
2003/12/13 10:19:46 | ||||
| 15楼： | 再贴一段代码，实现粘贴功能： procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if (ssctrl in shift) and ((key=118) OR (key=86)) then edit1.PasteFromClipboard; end; 这样做有个不好的结果，就是可以把文本贴进去了，起不到只要数字的效果，如果是我，就不会要这个复制贴粘的功能! ---------------------------------------------- 秋风清 秋月明，几上闲琴黯生尘。 夜来忽忆少年事，陌上柳绿草青青。 相逢一笑言未语，携手相看自倾心。 二十二载云烟里，云含风韵烟含情。 风尘渺落风霜浸，但闻长空雁长鸣。 姿容如花颜如玉，只在平生梦里寻。 秋风清 秋月明，秋灯秋雨愁煞人。 天涯路远人何在，午夜梦回空扰惊。 |
|||||
| 作者： |
|
2003/12/13 10:26:50 | ||||
| 17楼： | 大侠你一试就知，DELETE当然可用啊 ---------------------------------------------- 秋风清 秋月明，几上闲琴黯生尘。 夜来忽忆少年事，陌上柳绿草青青。 相逢一笑言未语，携手相看自倾心。 二十二载云烟里，云含风韵烟含情。 风尘渺落风霜浸，但闻长空雁长鸣。 姿容如花颜如玉，只在平生梦里寻。 秋风清 秋月明，秋灯秋雨愁煞人。 天涯路远人何在，午夜梦回空扰惊。 |
|||||
| 作者： |
|
2003/12/13 11:01:08 | ||||
| 18楼： | key=118………… 这些键盘代号哪有？还没关心过呢 ---------------------------------------------- - |
|||||
| 作者： |
|
2003/12/13 11:09:15 | ||||
| 19楼： | 118是小些的v 86是大写的V 这个很简单，自己编程序都可以求出来 ---------------------------------------------- 秋风清 秋月明，几上闲琴黯生尘。 夜来忽忆少年事，陌上柳绿草青青。 相逢一笑言未语，携手相看自倾心。 二十二载云烟里，云含风韵烟含情。 风尘渺落风霜浸，但闻长空雁长鸣。 姿容如花颜如玉，只在平生梦里寻。 秋风清 秋月明，秋灯秋雨愁煞人。 天涯路远人何在，午夜梦回空扰惊。 |
|||||
| 作者： |
|
2003/12/13 14:20:01 | ||||
| 20楼： | 其实最简单的方法就是... 找个第三方控件,嘿嘿 ---------------------------------------------- Click here to redirect to my home Click here to redirect to my blog |
|||||
| 作者： |
|
2003/12/13 14:24:31 | ||||
| 21楼： | 晕，不是吧老兄？这个也要控件？ 真是I服了U! ---------------------------------------------- 秋风清 秋月明，几上闲琴黯生尘。 夜来忽忆少年事，陌上柳绿草青青。 相逢一笑言未语，携手相看自倾心。 二十二载云烟里，云含风韵烟含情。 风尘渺落风霜浸，但闻长空雁长鸣。 姿容如花颜如玉，只在平生梦里寻。 秋风清 秋月明，秋灯秋雨愁煞人。 天涯路远人何在，午夜梦回空扰惊。 |
|||||
| 作者： |
|
2003/12/13 15:30:30 | ||||
| 22楼： | Delphi有这个控件呀 ---------------------------------------------- - |
|||||
| 作者： |
|
2003/12/13 15:44:15 | ||||
| 23楼： | 嘿嘿 光收集不用岂不是浪费~ 俺收集就是为了用d ---------------------------------------------- Click here to redirect to my home Click here to redirect to my blog |
|||||
| 作者： |
|
2003/12/13 17:51:10 | ||||
| 24楼： | 管他那么多 你能解决就行了 编译好的EXE 谁知道 你是怎么的? ----------------------------------------------
|
|||||
| 作者： |
|
2003/12/13 21:01:56 | ||||
| 25楼： | 记得有位大哥在论坛上贴了这么一个控件，好像在精华区，贴子的题目也是关于只输入数字的！ ---------------------------------------------- - |
|||||
| 作者： |
|
2003/12/14 20:53:20 | ||||
| 26楼： | procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin If (pos(Key,'0123456789') = 0) and (Key <> #8) Then Key := #0; end; ---------------------------------------------- - |
|||||
| 作者： |
|
2003/12/15 8:49:08 | ||||
| 27楼： | 用MaskEdit也可以啊! ---------------------------------------------- 米软科技有限公司 http://www.szmesoft.com
|
|||||
| 信息 |
| 登陆以后才能回复 |
