delphi - TEdit、Delphi 中只有数字

Question

如何添加仅接受数字的 TEdit？我搜索信息但没有任何帮助。

我需要一个不接受任何字母或字符串的TEdit。

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); 
begin 
  if not (Key in [#8, '0'..'9', DecimalSeparator]) then 
  begin
     ShowMessage('Invalid key: ' + Key); 
     Key := #0; 
  end 
  else 
  if (Key = DecimalSeparator) and (Pos(Key, Edit1.Text) > 0) then 
  begin 
    ShowMessage('Invalid Key: twice ' + Key); 
    Key := #0; 
  end; 
end;

Answer 1

在现代 Delphi 版本 (D2009+) 中，您可以使用 TEdit.NumbersOnly属性。

Allows only numbers to be typed into the text edit. Use NumbersOnly to prohibit entry of non-numeric characters in the textfield. Note, however, that a user can paste non-numeric characters in the textfield even when this property is set.

另一个选项是使用TMaskEdit成分。使用以下字符的 EditMask 属性可以生成有效的数字输入，包括负值。

# : Accepts an optional sign or numeric digit
0 : Accepts a numeric character
9 : Accepts an optional numeric character