Компонент TUpDown предназначен для регулирования числовой величины. Он имеет пару кнопок, с помощью которых величина наращивается или уменьшается. Обычно компонент TUpDown связан с другим компонентом класса TEdit, который отображает регулируемую величину и при необходимости может редактировать ее. Связанный компонент называется компаньоном. Свойства компонента: TUDAlignButton = (udLeft, udRight); property AlignButton: TUDAlignButton; Определяет положение компонента относительно компаньона: udLeft - TUpDown располагается слева от него; udRight - справа от него property Associate: TWinuontrol; Определяет связанный компонент. TupDown автоматически располагается с нужной стороны компаньона и выравнивает свою высоту с его высотой property Increment: Smallint; Определяет шаг наращивания/уменьшения регулируемой величины property Max: Smallint; Определяет максимальное значение диапазона изменения регулируемой величины property Min: Smallint; Определяет минимальное значение диапазона изменения регулируемой величины TUDOrientation = (udHorizontal, udVertical) ; property Orientation: TUDOrientation; Определяет ориентацию компонента: udHorizontal - по горизонтали; udVertical - по вертикали property Positior-.: Sallint; Содержит текущее значение регулируемой величины property Thousands: Boolean; Если содержит True, в отображение числовой величины в компаньоне вставляются разделители тысяч property Wrap: Boolean; Запрещает/разрешает выход position из диапазона Max...Min (True - запрещает) Для компонента определены события type TUDChangingEvent = procedure (Sender: TObject; var AllowChange: Boolean) of object; property OnChar.ging: TUDChanginEvent; И type TUDBtnType = (btNext, btPrev) ; type TUDClickEvent = procedure (Sender: TObject; Button: TUDBtnType) ; property OnClick: TUDClickEvent; Первое возникает при любом изменении регулируемой величины. Обработчик события в параметре AllowChange сообщает, может ли величина измениться. Второе - при щелчке по кнопкам элемента. Параметр Button определяет нажатую кнопку: btprev - вниз или влево; btNext - вверх или вправо.  8  Комментарии к статье  8 8  Обсудить в чате