关于TEdit的简单问题(30分)

panduola · 2002-11-22

怎么让TEdit里面只可以输入浮点型的数字

zw84611 · 2002-11-22

老问题了。
在Edit的KeyPress中写：
if not (key in['-','.','0'..'9']) and (key <>#8) then key:=#0;

jsxjd · 2002-11-22

在Onkeypress 和 OnExit 中控件。

无疯无禄 · 2002-11-22

用RXLIB的更好用
www.playicq.com

happyloner · 2002-11-24

在Edit的KeyPress中写：
if not (key in['-','.',char(13),char(8),'0'..'9']) then
key:=#0;

吕洞宾 · 2002-11-24

KeyPress中写：
if not (key in['-','.',char(13),char(8),'0'..'9']) then
key:=#0;

panduola · 2003-09-10

接受答案了.