Компонент Delphi TrackBar

Компонент Delphi TrackBar находиться на странице Win32 Палитры компонентов. Его еще называют ползунком, движком, шкалой.

Рисунок 5 – Пример использования компонента TrackBar

В Windows подобный компонент стал стандартным элементом управления. Для примера привожу вкладку "Громкость" свойства "Звуки и аудио устройства" панели управления Windows XP.

Компонент TrackBarприменяется там, где надо задать с помощью мыши, на глаз, приблизительное значение какого либо параметра. Значение задается и определяется перетаскиванием ползунка по шкале. Свойство определяющее положение ползунка - это свойство Position.

Свойство Frequency определяет частоту засечек. Orientation - ориентацию: trHorizontal - горизонтальную и trVertical - вертикальную. Min и Max - минимальное и максимально значение шкалы. Если свойство SiderVisible равно FALSE то сам ползунок будет не виден. Свойство TickStyle отвечает за способ отображения засечек: автоматически - tsAuto; программно - tsManual; засечки не отображаются - tsNone. Определяет положение засечек свойство TickMarks: снизу - tmBottomRight; сверху - tmTopLeft; с обеих сторон - tmBoth. ThumbLength - задает толщину ползунка. Визуально внутри шкалы можно выделить синим цветом произвольный диапазон с помощью свойств SelStart и SelEnd, границы будут обозначены треугольными рисками.

SetTick(Value: Integer) - метод, с помощью которого на шкале, где находиться ползунок ставиться засечка.

Рисунок 6 – Добавления компонента на форму

Для закрепления материала давайте разберем такой пример. Разместим на форме следующие компоненты: TrackBar и Panel, как показано на рисунке. На панели можно было написать какой нибудь осмысленный текст, однако я оставил надпись по умолчанию Panel1. Свойству Frequency компонента TrackBar присвоим значение равное 10. Свойствам Min - 30, Max -90 соответственно.

Теперь напишем обработчик onChange:

Первые две строчки определяют длину стороны квадрата (компонент Panel), третья строка определяет левый край квадрата. Четвертая верхний край квадрата, цифра 30 опускает квадрат вниз, чтобы он будучи в центре не закрывал нашу шкалу.

Рисунок 7 – Созданное событие OnCreate формы

Квадрат (Panel1) можно расположить в произвольном месте, но чтобы при загрузке программы он оказался в нужном нам месте, событию onCreate формы присваиваем событие TrackBar1Change. Его мы только что создали через инспектор объектов (см. рисунок 7). Теперь запустив приложение и перемещая ползунок мы изменяем размеры нашего квадрата.