На этом шаге мы рассмотрим компонент 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 из диапазона Max…Min (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.

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