scrollbox

  

Компонент delphi scrollbox предназначен для создания области, в которую размешаются компоненты, занимающие большую площадь, чем сам 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;