Компонент delphi scrollbox предназначен для создания области, в которую размешаются компоненты, занимающие большую площадь, чем сам ScrollBoxпри этом автоматически появляться полосы прокрутки: горизонтальная либо вертикальная, или одновременно обе. Если размеры области увеличить до такого состояния что будут видна вся область, то полосы прокрутки исчезнут.Компонентом ScrollBox удобно пользоваться, в том случае, когда на форме присутствует панель инструментов и строка состояния.
Для размещения компонентов в небольшой области ScrollBox больших компонентов можно в процессе проектирования увеличивая временно размер ScrollBox, чтобы в нем поместилось все, что хотите разместить, а затем измените размеры ScrollBox до тех размеров которые вам необходимы.
Свойства scrollbox
| BorderStyle | стиль рамки компонента |
| AutoScroll | задает автоматическое появление полос прокрутки, в том случае если размер размещенных компонентов больше размера области по горизонтали либо вертикали, или в обоих измерениях |
Примечание:
Для прокручивания ScrollBox с помощью колесика мыши
Необходимо добавить ниже описанный код в вашу программу
Для прокручивания вниз вставить код в событие OnMouseWheelDown
1 2 3 4 5 | procedure Tform8.ScrollBox1MouseWheelDown(Sender: TObject; Shift: TShiftState; MousePos: TPoint; var Handled: Boolean); begin Scrollbox1.VertScrollBar.Position := Scrollbox1.VertScrollBar.Position + 4; end; |
Для прокручивания вверх вставить код в событиеOnMouseWheelUp
1 2 3 4 5 | procedure TForm8.ScrollBox1MouseWheelUp(Sender: TObject; Shift: TShiftState;MousePos: TPoint; var Handled: Boolean); begin Scrollbox1.VertScrollBar.Position:= Scrollbox1.VertScrollBar.Position-4; end; |