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

本文整理自网络，侵删。

 
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Spin;

type
TForm1 = class(TForm)
SpinEdit1: TSpinEdit;
Button1: TButton;
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
procedure DownClick(Sender: TObject);
procedure UpClick(Sender: TObject);
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.DownClick(Sender: TObject);
begin
SpinEdit1.Text:= IntToStr(StrToInt(SpinEdit1.Text) - 1);
ShowMessage('按下了减小按钮！');
end;

procedure TForm1.UpClick(Sender: TObject);
begin
SpinEdit1.Text:= IntToStr(StrToInt(SpinEdit1.Text) + 1);
ShowMessage('按下了增大按钮！');
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
SpinEdit1.Button.OnDownClick:= DownClick;
SpinEdit1.Button.OnUpClick:= UpClick;
end;

end.
 

相关阅读 >>

Delphi循环移位操作

Delphi xe5 与其他版本共存

Delphi copyfileprogressbar 拷贝文件显示进度条

Delphi 很方便调用的log日志方法

Delphi 操作webbrowser 元素值

Delphi createdir 建立文件夹路径

Delphi 如何在toolbar中的toolbutton上显示文字

Delphi decodeutf8str解决系统自带utf8解码缺陷

Delphi键盘按键伪码多类型

Delphi 学习 sql 语句 - select(9): 其他

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

转载请注明出处：木庄网络博客 » Delphi 怎样判断SpinEdit在微调时值是增加还是减少了