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.
Автор: p0s0l
Статья Как назначить событие на увеличение/уменьшение TSpinEdit с помощью стрелочек? раздела Компоненты и Классы TEdit может быть полезна для разработчиков на Delphi и FreePascal.
