屏蔽所有输入的非数值，该怎么写？

Question

1、procedure   TForm1.Edit1KeyPress(Sender:   TObject;   var   Key:   Char);请问是怎么出来的，双击TEdit不是这样子的？
2、还有我想屏蔽所有输入的非数值，代码该怎么写？

Answer 1

那是控件的KeyPress事件，不是doubleclick事件，想屏蔽的话直接用key和ascii码对比即可
符合条件key=#0就是屏蔽该按键

Answer 2

1、这个事件应该是键盘确认后触发的事件；
2、要做到这个操作需要在change事件里编码，判断输入的是否是非数值

Answer 3

1、选中控件，点Events，那里会有控件的所有事件；
2、if not (key in ['0'..'9', #8]) then key := #0;
3、楼主没用过delphi？

Answer 4

谢谢大哥，那个if not (key in ['0'..'9', #8]) then key := #0;
中的#8，和#0是什么意思啊，有所有的详细解释吗？

Answer 5

if not (key in ['0'..'9',#8,#13]) then
  key := #0;我在加个回车符(#13),这句话的意思，如果输入的字符不是0~9或是退格键(#8)和回车键(#13)则返回#0(什么都不做).

Answer 6

干脆MaskEdit，不过MaskEdit确实不好使。
还是自己处理好些。