有关TEdit控件输入的问题!谢谢!!!(50分)

  • 主题发起人 主题发起人 Dirichlet000
  • 开始时间 开始时间
D

Dirichlet000

Unregistered / Unconfirmed
GUEST, unregistred user!
请问如何能使TEdit控件输入时只能输入数字,而不能输入其他字符?(希望不是用第三方控件,通过代码实现)谢谢!!!
 
在keypress事件中:
if key=#13 then selectNext(ActiveControl,true,true) //回车则跳到下一控件
else if not (key in ['0'..'9','.',#8]) then key:=#0; //#8是BackSpace键。
 
onchange 事件中
try
strtofloat(edit1.text);
except
edit1.text:=copy(edit1.text,1,length(edit1.text)-1);
end;
 
在onkeypress事件里写
if not (key in['0'..'9',char(8),char(9)]) then
begin
showmessage('Invalid char');
key=char(0);
end;
 
:HunterTeam就可以了
 
多人接受答案了。
 
后退
顶部