TEdit中限制只能输入"."或数字

写在onkeypress事件里面
if not (key in ['0'..'9',#8])  then
   begin
      if (key='.') and (pos('.',Tedit(sender).Text)=0) then exit;
      key:=#0;
      Messagebeep(0);
   end;

在KeyPress里控制怎么都不完善！
如果Ctrl+C,Ctrl+V怎么办？
如果右键拷贝、粘贴呢？
所以只有在OnChange事件中才能完善控制：
procedure TForm.EditChange(Sender: TObject);
begin
  try
    StrToFloat((Sender as TEdit).Text);
  except
    (Sender as TEdit).Text:=Copy((Sender as TEdit).Text,1,
      Length((Sender as TEdit).Text)-1);
    (Sender as TEdit).SelStart:=Length((Sender as TEdit).Text);
  end;