Компонент ScrollBar находиться на странице Standart панели инструментов. С помощью ползунка мы можем выбрать целое число, которое будет находиться в диапазоне значений от Min до Max в свойствах компонента.
Изменить положение ползунка можно мышью, клавишами стрелки вверх, вниз влево, вправо, или Page Up и Page Down. Перемещая ползунок изменяется свойство position. При необходимости его позицию можно задать программно, за исключением если позиция будет выходить за пределы диапазона.
Полоса ScrollBar может быть расположена по вертикали или горизонтали за это отвечает свойство Kind. Значение sbVertical устанавливает вертикальную, а sbHorizontal - горизонтальную полосу прокрутки.
Давайте расположим на нашей форме 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 и возможностью менять цвет формы.
———-Полоса ScrollBar может быть расположена по вертикали или горизонтали за это отвечает свойство King———–
Если мне память не изменяет, то не King, а Kind
опечатку исправил.
спасиб полезная инф…
можно ли с помощью ScrollBar изменять значения в SpinEdit ?
написал на кнопке Button такие 2 строки
SE1.Value:= ScrB1.Position;
Se1.Text:= IntToSTr(SE1.Value);
там температура выводится дальше из массива
ShowMessage(SE1.Text + ‘ Цельсия = ‘ +
FloatToStr(atemp[SE1.Value]) + ‘ Фаренгейта’);
работать то работает и значения из =за “ползуна”
меняются , только в SpinEdit это отображается когда
уже только на кнопку кликнешь,глупость конечно программа,но
хочется как-то на процесс повлиять,т.е. передвигаешь ползун и
тут же в SpinEdit значения меняются
Да можно. Используйте свойство Change компонента ScrollBar. Примерно это будет выглядеть так:
procedure TForm1.ScrollBar1Change(Sender: TObject);
begin
SpinEdit1.Value := ScrollBar1.Position;
end;
Спасибо за поддержку Уважаемый Admin