Урок 3. Использование компонента ScrollBar

Компонент ScrollBar находиться на странице Standart панели инструментов. С помощью ползунка мы можем выбрать целое число, которое будет находиться в диапазоне значений от Min до Max в свойствах компонента.

Изменить положение ползунка можно мышью, клавишами стрелки вверх, вниз влево, вправо, или Page Up и Page Down. Перемещая ползунок изменяется свойство position. При необходимости его позицию можно задать программно, за исключением если позиция будет выходить за пределы диапазона.

Полоса ScrollBar может быть расположена по вертикали или горизонтали за это отвечает свойство Kind. Значение sbVertical устанавливает вертикальную, а sbHorizontal - горизонтальную полосу прокрутки.

Пример с компонентам ScrolBarДавайте расположим на нашей форме 3 компонента ScrollBar как показано на рисунке. Свойства Min будут равны 0, а Max - 255, position - 0. Заходим в Object Inspector двойным щелчком на пустом поле рядом с событием OnChange открывает редактор кода. С помощью функции RGB(x,y,z) задаем цвет форме, где x, y, z - целые числа от 0 до 255, в цветовой палитре - красный, зеленый, голубой. У нас должно получиться :

procedure TForm1.ScrollBar1Change(Sender: TObject);
begin
  Form1.color:=RGB(ScrollBar1.Position,ScrollBar2.Position,ScrollBar3.Position);
end;

Аналогично данная запись должна присутствовать и для остальных компонент  ScrollBar, ее можно добавить из выпадающего меню событий OnChange.

Теперь перемещая ползунки мы меняем цвет формы.

Как итог мы познакомились с функцией RGB, компонентом ScrollBar и возможностью менять цвет формы.

 

Урок 3. Использование компонента ScrollBar: 6 комментариев

  1. ———-Полоса ScrollBar может быть расположена по вертикали или горизонтали за это отвечает свойство King———–

    Если мне память не изменяет, то не King, а Kind

  2. можно ли с помощью ScrollBar изменять значения в SpinEdit ?
    написал на кнопке Button такие 2 строки
    SE1.Value:= ScrB1.Position;
    Se1.Text:= IntToSTr(SE1.Value);
    там температура выводится дальше из массива
    ShowMessage(SE1.Text + ‘ Цельсия = ‘ +
    FloatToStr(atemp[SE1.Value]) + ‘ Фаренгейта’);
    работать то работает и значения из =за “ползуна”
    меняются , только в SpinEdit это отображается когда
    уже только на кнопку кликнешь,глупость конечно программа,но
    хочется как-то на процесс повлиять,т.е. передвигаешь ползун и
    тут же в SpinEdit значения меняются

Добавить комментарий

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