各位先進大家好： 小弟看到這一篇討論 【BCB】【問題】請教使用UpDown 可以修改Increment 的増減量為0.5嗎 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=60725 剛好小弟也需要類似的功能，但範圍可以為負值，故另開標題補充。 讓 UpDown 有 10 至 -10 且區間為 0.1 的變化，程式如下:

void __fastcall TForm1::FormCreate(TObject *Sender)
{
  Edit1->Text         = "0";
  UpDown1->Min        = -100;
  Edit1->ReadOnly     = true;
  UpDown1->Associate  = NULL;
}
//---------------------------------------------------------------------------    void __fastcall TForm1::UpDown1ChangingEx(TObject *Sender,
      bool &AllowChange, short NewValue, TUpDownDirection Direction)
{
  float fValue;      if (Direction == updUp)
  {
    fValue = StrToFloat(Edit1->Text);
    fValue  = 0.1;
    Edit1->Text = Format("%.1f", ARRAYOFCONST((fValue)));
  }
  else if (Direction == updDown)
  {
    fValue = StrToFloat(Edit1->Text);
    if(fValue <= static_cast(UpDown1->Min * 0.1) ) return;
    fValue -= static_cast(0.1);
    Edit1->Text = Format("%.1f", ARRAYOFCONST((fValue)));
  }
}