Шаг 8.
Вкладка Win32. Компонент TUpDown

    На этом шаге мы рассмотрим компонент TUpDown.

    Компонент TUpDown (Счетчик) обычно используется одновременно с другими элементами. Он дает возможность изменять числовые значения (например, в текстовом поле) с помощью кнопок со стрелками и курсорных клавиш. При этом можно задать допустимые границы этих значений.

    Свойства компонента TUpDown.

   
Таблица 1. Свойства компонента TUpDown
Свойство Описание
type TUDAlignButton = (udLeft, udRight);
property AlignButton: TUDAlignButton;
Определяет положение счетчика относительно компонента:
  • udLeft - счетчик располагается слева от него;
  • udRight - справа от него.
property ArrowKeys: Boolean; Разрешает/запрещает интерпретировать нажатие клавиш вверх и вниз как щелчки, соответственно на направленной вверх и направленной вниз кнопках счетчика. Игнорируется, если компонент не связан свойством Associate с компаньоном
property Associate: TWinControl; Определяет связанный компонент (компаньон). Кнопки автоматически располагаются с нужной стороны компаньона и выравнивают свою высоту по его высоте
property Increment: Integer; Определяет шаг наращивания/уменьшения регулируемой величины
property Max: SmallInt;
property Min: SmallInt;
Определяет максимальное и минимальное значения диапазона изменения регулируемой величины
type TUDOrientation = (udHorizontal, udVertical); property Orientation: TUDOrientation; Определяет ориентацию компонента:
  • udHorizontal - по горизонтали;
  • udVertical - по вертикали.
property Position: SmallInt; Содержит текущее значение регулируемой величины
property Thousands: Boolean; Если содержит значение True, при отображении числовой величины в компаньоне в текст вставляются разделители тысяч
property Wrap: Boolean; Запрещает/разрешает выход значения Position из диапазона MaxMin (True - запрещает)

    Для компонента определены два события. Первое событие:

type TUDChangingEvent = procedure (Sender: TObject; 
           var AllowChange: Boolean) of object;
property OnChanging: TUDChanginEvent;

    Это событие возникает при любом изменении регулируемой величины. Обработчик события в параметре AllowChange сообщает, может ли величина измениться. Второе событие:

type 
  TUDBtnType = (btNext, btPrev);
    TUDClickEvent = procedure (Sender: TObject; Button: TUDBtnType) 
   of object;
property OnClick: TUDClickEvent;

    Это событие возникает при щелчке на кнопках элемента. Параметр Button определяет нажатую кнопку: btPrev - вниз или влево; btNext - вверх или вправо.

    Обычно счетчик используется совместно с компонентами TEdit, TLabeledEdit, TMaskEdit, TBitBtn и им подобными. Поэтому при размещении в форме этих компонентов они появляются в раскрывающемся списке для свойства Associate (Связать) счетчика. При выборе одного из этих компонентов счетчик автоматически присоединяется к объекту и визуально пристыковывается к нему слева или права, в зависимости от настройки.

    После этого программу можно откомпилировать и запустить. Теперь, если фокус ввода установлен на связанном компоненте, при щелчках на стрелках счетчика или при нажатии клавиш со стрелками содержимое последнего будет меняться, отображая значение, хранящееся в свойстве Position.

    На следующем шаге мы рассмотрим компонент THotKey.




Предыдущий шаг Содержание Следующий шаг