请问怎么样才能够使得updown控件每次增加或减少0.1??

Question

请问怎么样才能够使得updown控件每次增加或减少0.1??

Answer 1

因为UpDown的InCrement属性为Integer
不要设UpDown的Associate属性，procedure TMainForm.UpDown1ChangingEx(Sender: TObject;
  var AllowChange: Boolean; NewValue: Smallint;
  Direction: TUpDownDirection);
begin
  if Direction = updUP then
     Edit1.Text := FloatToStr(StrToFloat(Edit1.Text) + 0.1)
  else
     Edit1.Text := FloatToStr(StrToFloat(Edit1.Text) - 0.1);   
end;
但这时读数据时就得通过Edit.Text来读了
不知有没有更好的方法

Answer 2

但是好象在windows 2000上可以用，但在win98下面就怎么不行呢？？