如何让在delphi中的文本框只输入数字、小数点，“－”和退格，求助！！！ ( 积分: 30 )

K

kun.hong

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-04-04

• #1

如何让在delphi中的文本框只输入数字、小数点，“－”和退格，求助！！！
例如在edit的keypress时间中输入
if key not in ['0','1','2','3','4','5','6','7','8','9'] then
edit1.setfoucs;
可否加入'-','.'？还有退格键应该如何表示？

 

Z

zbdzjx

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-04-04

• #2

用maskedit

 

一

一份子

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-04-04

• #3

加入'-',退格键:"37"

 

H

hxy2002

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-04-04

• #4

if not (Key in ['0'..'9', '-', '.', #8]) then
Key := #0;
#8 退格键

 

K

kun.hong

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-04-05

• #5

接受答案了.