Как назначить событие на увеличение/уменьшение TSpinEdit с помощью стрелочек?

Материал из DRKB

Как назначить событие на увеличение/уменьшение TSpinEdit с помощью стрелочек?[править | править код]

У TSpinEdit.Button есть дополнительные события, которые не показаны в инспекторе объектов, например, OnUpClick и OnDownClick...

unit Unit1;

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

type
  TForm1 = class(TForm)
    SpinEdit1: TSpinEdit;
    procedure FormCreate(Sender: TObject);
  public
    procedure OnButtonUpClick(Sender: TObject);
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

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

procedure TForm1.OnButtonUpClick(Sender: TObject);
begin
  MessageDlg('Up Button was clicked.', mtInformation, [mbOk], 0);
end;

end.


Author: p0s0l
Source: Взято с Vingrad.ru http://forum.vingrad.ru
ID: 00540