如何只能输入数字和小数点(20分)

F

fonder

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-17

• #1

如何让EDIT 或者 MASKEDIT 只能输入数字和小数点，用MASKEDIT 的EDITMASK 设置成9999 只能输入数字，但是 要
输入小数点则不能了，有何方法？

 

C

catfox

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-17

• #2

procedure digitEditKeyPress(Sender: TObject; var Key: Char);
begin
if Not (Key in ['0'..'9','.',#8]) then Key := #0;
end;

在Edit的KeyPress中加入此方法

 

S

stuwe

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-17

• #3

同意上面的說法
不過要只輸入一個小數點的話就要多加一些條件

 

T

ttdlh

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-17

• #4

同意catfox的說法,我想問一下#8和#0是什么意思﹐還有有關的key值到哪去查?[]

 

L

lanbing1400

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-17

• #5

procedure digitEditKeyPress(Sender: TObject; var Key: Char);
begin
if Not (Key in ['0'..'9','.','.',#8]) then Key := #0;
end;

#8是删除键键值，#0清除键值；
查询键值可以自己写句代码，新建一个工程，在FORM上放一LABEL，
在FORM的KeyPress事件中写：label.caption:=inttostr(key);

 

W

windyhero

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-17

• #6

lanbing1400: label.caption:=inttostr(key);有语法错误key:char类型

 

F

fonder

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-27

• #7

多人接受答案了。