Delphi10.3中SpinEdit1和UpDown1上下按钮

此控件仅支持数字整数.默认情况下不支持小数点,但支持负数输入

 SpinEdit1主要属性

procedure TForm1.SpinEdit1Change(Sender: TObject);
begin
 form1.Caption:=  inttostr( SpinEdit1.Value );
end;

 

---

 

 UpDown1上下按钮

 

procedure TForm1.UpDown1Click(Sender: TObject; Button: TUDBtnType);
begin
form1.Caption:=  inttostr( UpDown1.Position );
end;