如何在TEdit框中设定只能输入数字？

Question

我有一个TEdit框，我希望只能输入数字。
本人无书学习Delphi第5天，自知问题很低级，不要笑我，望解答详细。谢谢！

Answer 1

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

Answer 2

在Edit1的OnKeyPress事件中输入以下代码：
begin
  if Key >= #32 then
    if not (Key in ['0'..'9']) then
       Key := #0;
end;