D Dirichlet000 Unregistered / Unconfirmed GUEST, unregistred user! 2002-11-06 #1 请问如何能使TEdit控件输入时只能输入数字,而不能输入其他字符?(希望不是用第三方控件,通过代码实现)谢谢!!!
H HunterTeam Unregistered / Unconfirmed GUEST, unregistred user! 2002-11-06 #2 在keypress事件中: if key=#13 then selectNext(ActiveControl,true,true) //回车则跳到下一控件 else if not (key in ['0'..'9','.',#8]) then key:=#0; //#8是BackSpace键。
在keypress事件中: if key=#13 then selectNext(ActiveControl,true,true) //回车则跳到下一控件 else if not (key in ['0'..'9','.',#8]) then key:=#0; //#8是BackSpace键。
扳 扳手 Unregistered / Unconfirmed GUEST, unregistred user! 2002-11-06 #3 onchange 事件中 try strtofloat(edit1.text); except edit1.text:=copy(edit1.text,1,length(edit1.text)-1); end;
onchange 事件中 try strtofloat(edit1.text); except edit1.text:=copy(edit1.text,1,length(edit1.text)-1); end;
H happyloner Unregistered / Unconfirmed GUEST, unregistred user! 2002-11-06 #4 在onkeypress事件里写 if not (key in['0'..'9',char(8),char(9)]) then begin showmessage('Invalid char'); key=char(0); end;
在onkeypress事件里写 if not (key in['0'..'9',char(8),char(9)]) then begin showmessage('Invalid char'); key=char(0); end;