Delphi Edit限制只能输入数字

据说高版本的XE已经有一个numberonly这样的属性限制只能输入数字了，我还一直用D7，只有开发Webservice接口时才用到XE2，有点落后了！！

一点点经验还是要记录下来，说不定后面哪天用得到呢？

Edit的KeyPress事件写代码、我的Demo是一个共用的KeyPress事件

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
var c: Integer;
begin
  if key='.' then
  begin
    for c:=1 to length(TEdit(Sender).text) do
    begin
      if Tedit(Sender).text[c]='.' then key:=#0;
    end;
  end
  else
    if key=#13 then PerForm(WM_NEXTDLGCTL,0,0)
    else
        if key=#8 then key:=#8
        else
          if (key<'0') or (key>'9') then
            key:=#0;
end;