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.
 

相关阅读 >>

程序人生 : 30岁，我的程序员梦想

tclientsocket和tserversocket用法

如何判断硬盘是fat32还是ntfs

Delphi combobox的属性和事件、及几个鼠标事件的触发

Delphi ascii 码对照表

Delphi 实现窗口记住关闭时的坐标位置

Delphi 按钮躲避鼠标点击

Delphi 判断时间是否是下午 dateutils.ispm

Delphi tchart使用经验小结

Delphi xe5 程序中标识win max android ios程序代码分别实现

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

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