关于输入内容控制

Question

我想在edit控件的onkeypress事件中判断输入的是否为数字，如果不是就取消输入的内容，可是没有办法删除，该怎么办？
   case t of
   '0','1','2','3','4','5','6','7','8','9': exit;
   '.':
   begin
   s:=not s;
   if s=false then
    begin
     application.MessageBox('请检查小数点个数！','提示',mb_ok);
     k :=m;
     Delete(k,length(k),1);
     s:=true;
     exit;
    end;
   end;
   else
    begin
     k :=m;
     Delete(k,length(k),1);
     application.MessageBox('请输入数值！','提示',mb_ok);
     exit;
    end;
   end;

Answer 1

procedure Edit1KeyPress(Key: Char);
const
    Num = [1..9];
begin
     if not(key in Num) then
         key = #0
end;
好象是这样,身边没Delphi,凭记忆写的

Answer 2

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if not(key in ['0'..'9','.',#8]) then
  begin
    beep;
    key:=chr(0);//清除输入的字符
  end;
end;如果只想输入整数则：
if not(key in ['0'..'9',#8]) then
  begin
    beep;
    key:=chr(0);
  end;
end;