怎样使文本框(edit1)只能输入阿拉伯数字，不能输入中文或英文及符号？(20分)

pokar · 2002-05-22

怎样使文本框(edit1)只能输入阿拉伯数字，不能输入中文或英文及符号？

payer · 2002-05-22

为什么不用maskedit

mlzhou · 2002-05-22

在Edit的KeyPress事件中加入
if not (key in ['0'..'9',#8,#13,'.']) then
key:=#0;

磊 · 2002-05-22

在Edit的KeyPress事件中加入
if key<chr(48) or key >chr(57) then key=chr(16)

sydan · 2002-05-22

if not (key in ['0'..'9',#8,#13,'.']) then
key:=#0;
這個安全好用!!

菜根 · 2002-05-22

要这样控件吗，给你一个？

shibaoping · 2002-05-22

maskedit

seaerwang · 2002-05-22

maskedit 比较好

sword_liu · 2002-05-22

最全面/最安全
procedure TForm3.Edit4KeyPress(Sender: TObject; var Key: Char);
var
i:Integer;
begin
if not (key in [#48..#59,#8,#13,#46]) then
key:=#0
else
begin
if key=#13 then
begin
key:=#0;
perform(WM_NEXTDLGCTL,0,0);
end;
if key=#46 then
begin
for i:=1 to Length(Edit4.Text) do
begin
if Copy(Edit4.Text,i,1)='.' then
key:=#0;
end;
end;
end;
end;

zryzry · 2002-05-22

在Edit的KeyPress事件中控制

nathanlee · 2002-05-23

在EDIT1的EXIT事件中写
TRY
FLOATTOSTR（EDIT1。TEXT）
EXCEPT
EDIT1。SETFOURCE
END

咪咪富翁 · 2002-05-28

on key press 事件中

IF not((ord(key)-ord('0')) in [0..9]) and (ord(key)<>8) then
key:=#0;
这样也可以实现，前面是限制只能输入数字，后边是backspace键

悟峰 · 2003-09-23

procedure TForm3.Edit4KeyPress(Sender: TObject; var Key: Char);
var
i:Integer;
begin
if not (key in [#48..#59,#8,#13,#46]) then
key:=#0
else
begin
if key=#13 then
begin
key:=#0;
perform(WM_NEXTDLGCTL,0,0);
end;
if key=#46 then
begin
for i:=1 to Length(Edit4.Text) do
begin
if Copy(Edit4.Text,i,1)='.' then
key:=#0;
end;
end;
end;
end;

怎样使文本框(edit1)只能输入阿拉伯数字，不能输入中文或英文及符号？(20分)

pokar

Unregistered / Unconfirmed

payer

Unregistered / Unconfirmed

mlzhou

Unregistered / Unconfirmed

磊

Unregistered / Unconfirmed

sydan

Unregistered / Unconfirmed

菜根

Unregistered / Unconfirmed

shibaoping

Unregistered / Unconfirmed

seaerwang

Unregistered / Unconfirmed

sword_liu

Unregistered / Unconfirmed

zryzry

Unregistered / Unconfirmed

nathanlee

Unregistered / Unconfirmed

咪咪富翁

Unregistered / Unconfirmed

悟峰

Unregistered / Unconfirmed

Similar threads