如何锁定程序只能输入数字？(100分)

C

chy.com

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-07-31

• #1

如何锁定程序只能输入数字？能否给出源代码？谢谢！！

我想编程实现用户只能输入数字而不能输入字母。

 

V

vinsa

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-07-31

• #2

使用additional控件面板上的maskedit控件
设置maskedit控件的editmask属性即可，比如设置属性为00000000;1;_即可
具体可以看他自带的sample masks.

 

C

chy.com

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-08-01

• #3

还要控制输入值的范围

 

B

balaschen

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-08-02

• #4

自己写OnKeyPress事件判断按键.

 

C

chansin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-08-02

• #5

OnKeyPress事件
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if (key in ['0'..'9']=false) and (word(key)<>vk_back) then
begin
key:=#0;
end;
end;
注：word(key)<>vk_back 用于判断删除键

 

W

wrf

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-08-02

• #6

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
if (key in ['0'..'9']=false) and (word(key)<>vk_back) then
begin
key:=#0;
end;

end;
keypreview:=true;

 

A

antic_ant

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-08-21

• #7

使用setwindowlong 和getwindowlong 函数 如edit1 为例
SetWindowLong(Edit1.Handle, GWL_STYLE,
GetWindowLong(Edit1.Handle, GWL_STYLE) or ES_NUMBER);

 

K

kisse

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-08-21

• #8

呵呵，来晚了

 

C

chy.com

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-27

• #9

多人接受答案了。