一个TSpinEdit的问题

Question

我想用TSpinEdit来控制输入的数据
一开始的值是0，我想当点增加或减少时可以按0.1的递增/减但是TSpinEdit只支持整型，我在它的Increment中输入0.1就报错，说只能输入整型的数据，怎么办？

Answer 1

其实spinedit我从来都不用，我比较喜欢ehlib的numedit，ehlib没有这个问题

Answer 2

楼上的你所说的ehlib的numedit是不是第三方控件？

Answer 3

是滴，很少听到玩delphi的不知道ehlib

Answer 4

bluekitty(可爱猪猪) 那在那里下载呢?

Answer 5

用一个Edit加一个UpDown代替吧procedure TGPXXFrm.udZXHDClick(Sender: TObject; Button: TUDBtnType);
var
    SenderName: string;
    AimEdit: TDBEdit;
begin
    tGp.Edit;    SenderName := (Sender as TComponent).Name;
    SenderName := MidStr(SenderName, 3, 1024);    AimEdit := self.FindComponent('ed' + SenderName) as TDBEdit;    if AimEdit.Text = '' then AimEdit.Text := '0';    if Button = btNext then
    begin
        AimEdit.Text := Format('%.1f', [StrToFloat(AimEdit.Text) + 0.1]);
    end else
    begin
        AimEdit.Text := Format('%.1f', [StrToFloat(AimEdit.Text) - 0.1]);
    end;end;