怎样控制Edit只能输入数字？

Question

procedure TGetFeeFrm.edt1KeyPress(Sender: TObject; var Key: Char);
begin
  if not ((key >= '0') and (key <= '9')) then
    if ((key <> '.') and (key <> #8)) or
      ((key = '.') and (pos('.', Trim(edt1.text)) > 0)) then
      key := #0;
end;

Answer 1

keydown Event中：
if not key in [0..9] then
  key=#0;

Answer 2

在KEYPRESS 事件中写入代码控制
if not(key in ['0'..'9']) then
   key:=#0;

Answer 3

在KEYPRESS 事件中写入代码控制
if not(key in ['0'..'9','#13','#8']) then
   key:=#0;
怎么都不排除删除和回车呢?

Answer 4

procedure TGetFeeFrm.edt1KeyPress(Sender: TObject; var Key: Char);
begin
  if not(key in ['0'..'9','#13','#8']) then
    if ((key <> '.') or (pos('.', Trim(edt1.text)) > 0)) then
      key := #0;
end;

Answer 5

procedure TFormDialup.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
  if ((Ord(Key)>=48) and (Ord(Key)<=57)) then exit;
  Key:=chr(0);
end;