Delphi控件TEdit只接受数字键和退格键的实现方法

添加Edit的ONKeyPress事件，具体实现如下。

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if not (Key in ['0'..'9', Char(8)]) then //Char(8)为退格键
    Key:=#0 ;
end;
 

如果需要是浮点数，还应有'.'；实现如下。

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