一个简单问题?

Question

1.动态生成一个TEdit控件!输入时它只能接受奇数位.

Answer 1

晕,创建之后
edit.onKeyPress = MyKeyPress
在MyKeyPress判断Key

Answer 2

onkeypress()if not (key in ['1','3','5','7','9',#8,#13]) then
  key:=#0;

Answer 3

可能是我没有表达清楚,是比如EDIT最大只能输入10位,你输入1234567890,EDIT显示为13579.

Answer 4

if not (key in ['1','3','5','7','9',#8,#13]) then
  key:=#0;这样没错啊

Answer 5

Edit.MaxLength := 10;  // 把maxlength属性设置一下
然后在edit的onkeypress里写上
if not (key in ['1','3','5','7','9',#8,#13]) then
  key:=#0;