如何解决限制edit框只能输入数字?

                            
限制edit框只能输入数字。   
          procedure   TForm1.Edit1KeyPress(Sender:   TObject;   var   Key:   Char);  
          begin  
              if   not   (key   in   ['0'..'9','.',#8])   then  
              begin  
                  key:=#0;  
                  Messagebeep(0);  
              end;  
          end;  
   
  这种方法还是有不足之处,用户可以使用右键---粘贴,把非数字输入进去  
  如何也限制使用右键---粘贴

查看回复