Delphi 怎样判断SpinEdit在微调时值是增加还是减少了

本文整理自网络，侵删。

 unit Unit1;
interface
usesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls, Spin;
typeTForm1 = class(TForm)SpinEdit1: TSpinEdit;Button1: TButton;procedure FormCreate(Sender: TObject);private{ Private declarations }publicprocedure DownClick(Sender: TObject);procedure UpClick(Sender: TObject);{ Public declarations }end;
varForm1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.DownClick(Sender: TObject);beginSpinEdit1.Text:= IntToStr(StrToInt(SpinEdit1.Text) - 1);ShowMessage('按下了减小按钮！');end;
procedure TForm1.UpClick(Sender: TObject);beginSpinEdit1.Text:= IntToStr(StrToInt(SpinEdit1.Text) + 1);ShowMessage('按下了增大按钮！');end;
procedure TForm1.FormCreate(Sender: TObject);beginSpinEdit1.Button.OnDownClick:= DownClick;SpinEdit1.Button.OnUpClick:= UpClick;end;
end. 

相关阅读 >>

Delphi http json 验证token

Delphi ioutils单元查找文件夹高级功能

Delphi xe 使用savestate保存firemonkey状态的示例

Delphi中窗体的事件

Delphi 日期时间计算

Delphi xe6、xe5、xe7在android创建快捷方式

Delphi goto 语句的使用

Delphi 怎么不注册 dll 就调用 com

Delphi 在windows平台下实现进程隐藏

Delphi 10.3 控件遮挡 webbrowser

更多相关阅读请进入《Delphi》频道 >>