DBNumberEditEh的值不能刷新?

Question

我把它做做有向上向阳花下两个微调按钮的样式,用于输入月份,控制输入的值在1-12之间.于是在OnChange中写上如下代码,但当连续按向下键时,出现的是
1,0,11,10,9,8,7...
或者按向阳花上键时,出现的是
12,13,2,3,4,5,6,7...
这都不是预期的效果.请问该写在哪个事件中,如何写才正确呢? 谢谢!procedure TForm_SD_GX.DBNumberEditEh1Change(Sender: TObject);
begin
//  if DBNumberEditEh1.Value>12 then DBNumberEditEh1.Value:=1;
//  if DBNumberEditEh1.Value<1  then DBNumberEditEh1.Value:=12;
  if DBNumberEditEh1.Value>12 then DBNumberEditEh1.text:='1';
  if DBNumberEditEh1.Value<1  then DBNumberEditEh1.text:='12';  DBNumberEditEh1.Refresh;
end;