如何让一个文本框只输入数字而不能输入别的字符

[willsound]

[BCB]

在Edit的键盘事件中控制或改用TMaskEdit

[Kingron]

在OnKeyXXX中携带马就可以了啊。

[powerlee]

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not (key in ['0'..'9']) then begin
key := #15;
end;

end;

[dingsg111]

agree powerlee(老李飞刀)　

[dana]

isvalidident()

[taozc]

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not (key in ['0'..'9']) then
Key:=#0;
end;

[Crob]

最完美的解决这个问题的代码：）

如下：

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if ord(Key)=8 then begin
exit;
end;

if (editCustId.SelLength = 8)
and ((ord(Key)>=48) and (ord(Key)<=57) or (ord(Key)=8) or (ord(Key)=36) or (ord(Key)=35) or (ord(Key)=38) or (ord(Key)=40) or (ord(Key)=37) or (ord(Key)=39)) then
begin
exit;
end;

[Crob]

改一下控件名，呵呵

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if ord(Key)=8 then begin
exit;
end;

//以下同时设置了文本框的长度不能超过8
if (Edit1.SelLength = 8)
and ((ord(Key)>=48) and (ord(Key)<=57) or (ord(Key)=8) or (ord(Key)=36) or (ord(Key)=35) or (ord(Key)=38) or (ord(Key)=40) or (ord(Key)=37) or (ord(Key)=39)) then
begin
exit;
end;

[Nicky_he]

推荐用MaskEdit.

[little_hero]

同意楼上。