Компонент Delphi TrackBar

Компонент Delphi TrackBar находиться на странице Win32 Палитры компонентов. Его еще называют ползунком, движком, шкалой. windows подобный элемет управленияВ 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) - метод, с помощью которого на шкале, где находиться ползунок ставиться засечка.

Пример с компонентом TrackBar

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

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

procedure TForm1.TrackBar1Change(Sender: TObject);
begin
    Panel1.Height := TrackBar1.Position;
    Panel1.Width  := TrackBar1.Position;
    Panel1.Left   := ClientWidth div 2 - Panel1.Width div 2;
    Panel1.Top    := ClientHeight div 2 + 30 - Panel1.Height div 2;
end;

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

Область инспектора объектов

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

Теперь запустив приложение и перемещая ползунок мы изменяем размеры нашего квадрата.

Итог: был рассмотрен компонент TrackBar его свойства и методы.

Понравилась статья? Раскажите друзьям:
Общайтесь со мной

5 thoughts on “Компонент Delphi TrackBar

    • Для этого надо использовать функцию RGB. Создать обработчик события OnChange тракбара. Для изменения от красного цвета до черного создаем такой обработчик (не забываем что свойство MAX тракбара должно быть равно 255, а MIN = 0):
      Panel1.Color:=RGB(TrackBar1.Position,0,0);
      Посмотрите для компонента ScrollBar там аналогично.

  1. Полезно! А вы не подскажите как сохранить положение ползнука? И чтоб он при следующем запуске программы, оставался там, где оставил его перед закрытием.

    • для этого значение которое есть у ползунка следует сохранить или в ini файле или в реестре или в базе данных.

Оставить комментарий

Ваш email не будет опубликован. Обязательные поля отмечены *

Вы можете использовать это HTMLтеги и атрибуты: <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <strike> <strong>