UpDown 增減量為小數,且範圍允許負值 |
|
shinnuei
一般會員 發表:32 回覆:48 積分:21 註冊:2002-03-13 發送簡訊給我 |
各位先進大家好:
小弟看到這一篇討論
【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 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |