ScrollBar — это полоса с ползунком, перемещая который можно задавать целые значения в диапазоне от минимально заданного до максимального.
Сама полоса прокрутки имеет вид:
Минимальное значение задаётся свойством «Min», а максимальное — свойством «Max».
Текущее положение ползунка отражается в свойстве «Position».
Свойство «Kind» определяет, будет ли компонент расположен горизонтально или вертикально.
Свойство «PageSize» определяет размер ползунка (0-квадратный, 1 — прямоугольный).
Свойство «SmallChange» определяют шаг сдвига ползунка при клике на кнопке в конце и начале полосы прокрутки или при нажатии на клавиши со стрелкой.
Свойство «LargeChange» определяют шаг сдвига при клике рядом с бегунком или при нажатии клавиш PageUp или PageDown.
Создадим следующую форму :
Установим следующие свойства: «Min=0» и «Max=255».
Для каждого ползунка напишем обработчик события «onChange»:
procedure TForm1.ScrollBar1Change(Sender: TObject);
begin
self.Panel1.Color:=rgb(ScrollBar1.Position,ScrollBar2.Position,ScrollBar3.Position,);
self.Label1.Caption:=intToStr(ScrollBar1.Position);
end;
procedure TForm1.ScrollBar2Change(Sender: TObject);
begin
self.Panel1.Color:=rgb(ScrollBar1.Position,ScrollBar2.Position,ScrollBar3.Position,);
self.Label2.Caption:=intToStr(ScrollBar2.Position);
end;
procedure TForm1.ScrollBar3Change(Sender: TObject);
begin
self.Panel1.Color:=rgb(ScrollBar1.Position,ScrollBar2.Position,ScrollBar3.Position,);
self.Label3.Caption:=intToStr(ScrollBar3.Position);
end;
Запустив программу и максимально сдвинув ползунок вправо, получим:
Посмотрим, как работает программа на следующем примере (указатель мыши изменён на двунаправленную стрелку):
***
