TSpinEdit控件使用的一点小问题

Question

Samples下的TSpinEdit控件
当TSpinEdit里面的值为空时，点击上下微调会出错，各位大侠有什么好的方法解决，比如当为空里禁止鼠标点击上下微调，代码怎么写

Answer 1

procedure TForm1.SpinEdit1Change(Sender: TObject);
begin
  try
    StrToInt(SpinEdit1.Text);
  except
    SpinEdit1.Text:='0';
  end;
end;
在onChange里面写代码,不允许它为空,当为空时就把它设置为0

Answer 2

TO  pengxuan(网虫先生) ：
  谢谢，我也这样想过，但不能这样写，比如别人先要删除里面的数据，再写一个值时，这样操作起来不方便，因为一旦删除就会产生一个零，所以最好是为空时禁止鼠标点击上下微调

Answer 3

那就这样写吧
procedure TForm1.SpinEdit1Change(Sender: TObject);
begin
  try
    StrToInt(SpinEdit1.Text);
    SpinEdit1.Button.Enabled:=True;
  except
    SpinEdit1.Button.Enabled:=False;
  end;
end;