这段代码该怎样写啊

Question

我用Edit组件，我想在里面只能输入数字。代码怎样写啊，请大虾赐教 ！感激不尽

Answer 1

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if not (Key in ['0'..'9', Char(VK_BACK)]) then              //去掉空格就可以
  begin
    Key := #0;
  end;
end;

Answer 2

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not (Key  in ['1','2','3','4','5','6','7','8','9','0',#13,#8]) then Key:=#0;
end;

Answer 3

procedure TMain_Frm.RzEdit3KeyPress(Sender: TObject; var Key: Char);
begin
  if not (Key in['1'..'9',#8,#13]) then Key:=#0;
  if key=#13 then
begin
...........
end;

Answer 4

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

Answer 5

procedure TForm1.FormCreate(Sender: TObject);
begin
  SetWindowLong(Edit1.Handle, GWL_STYLE,
    GetWindowLong(Edit1.Handle, GWL_STYLE) or ES_NUMBER);
end;
//第101次回答这个问题