DELPHI 设置控件输入的值是数字

procedure TfmxsFyd.DAYSKeyPress(Sender: TObject; var Key: Char);
begin
  if not (Key in ['0'..'9','.',#8,#46]) then
    Key:=#0;
  if Key=#13 then
  begin
    key:=#0;
    selectnext(ActiveControl,true,true);
  end;




设置下面这个控件
TcxDBButtonEdit(PanHead.FindComponent('HtEditDAYS')).OnKeyPress:=DAYSKeyPress;