191问答库 > Delphi中怎么设置 EDIT 文本框只允许输入阿拉伯数字?输入其它字符时,内容输入不上

Delphi中怎么设置 EDIT 文本框只允许输入阿拉伯数字?输入其它字符时,内容输入不上

2025-03-04 22:22:28

推荐回答（2个）

回答1：

很简单啊，把TEdit的属性NumbersOnly设置成True就可以了，默认是False

回答2：

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if (not (key in ['0'..'9', #8]) or (LeftStr(Edit1.text + key, 1)= '0')  then
  begin
    key:= #0;
  end;
end;

只允许输入数字, 且第一位不能为零..

Delphi中 怎么设置 EDIT 文本框只允许输入阿拉伯数字?输入其它字符时,内容输入不上

Delphi中怎么设置 EDIT 文本框只允许输入阿拉伯数字?输入其它字符时,内容输入不上