OnChangingEx

// Главная форма
frm=new TForm();
frm.Caption="JS+ - событие компонента TUpDown OnChangingEx";
frm.Width =450;
frm.Height=300;

// Строка состояния
stb=new TStatusBar(frm);
stb.SimpleText=" Щелкайте по кнопкам регулятора";

// Компаньон (поле редактирования)
edt=new TEdit(frm);
edt.BorderStyle=bsSingle;
edt.ClientWidth=edt.TextWidth("_000");
edt.Left=(frm.ClientWidth-edt.Width)/2;
edt.Top =(stb.Top-edt.Height)/2;
edt.Alignment=taRightJustify;

// Регулятор
upd=new TUpDown(frm);
upd.Associate=edt;
upd.Position=upd.Min+(upd.Max-upd.Min)/2;
upd.OnClick=upd_Click;
upd.OnChangingEx=upd_ChangingEx;
upd.SetFocus();

frm.ShowModal();

function upd_Click(upd,btn)
{
  upd.SetFocus();
}

// Обработчик события OnChangingEx
function upd_ChangingEx(upd,AllowChange,NewValue,Direction)
{
  var n1=45,n2=55;

  if (NewValue<n1) {
    stb.SimpleText=" Нижнее значение регулятора ограничено "+n1;
    AllowChange.Value=false;
    return;
  }
  if (NewValue>n2) {
    stb.SimpleText=" Верхнее значение регулятора ограничено "+n2;
    AllowChange.Value=false;
    return;
  }

  stb.SimpleText=" Новое значение регулятора: "+NewValue;
}