Компонент ScrollBar
жүктеу/скачать 87,73 Kb.
|
1 2
| 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; Запустив программу и максимально сдвинув ползунок вправо, получим: Посмотрим, как работает программа на следующем примере (указатель мыши изменён на двунаправленную стрелку): жүктеу/скачать 87,73 Kb. Достарыңызбен бөлісу:
|
1 2