已知Delphi的Tupdown控件的步进值是整数类型,每次只能以1为单元去增加或减少,现在我需要步进值为0.1需要怎么做
UpDown1的Changing里面写
var
v: Double;
begin
v := StrToFloat(Edit1.Text);
if UpDown1.Position < v then
v := v + 0.1
else
v := v - 0.1;
UpDown1.Position := v;
AllowChange := False;
end;