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.

推荐分享