PageScroller

  

Компонент delphi PageScroller служит для прокручивания какой-либо панели вместе с размещенными на ней компонентами. Этот компонент напоминает рассмотренный ранее компонент SсrollBox. Но есть и различия между двумя этими компонентами: PageScroller прокручивает только один компонент и только в одном направлении горизонтальном или вертикальном. Да и оформление у PageScroller не похоже на полосы прокрутки в ScrollBox.

Пример компонента PageScroller показан на рисунке 1.

Пример компонента PageScroller на форме

Основное свойство компонента PageScroller это Control. Оно указывает на компонент, который должен размещаться и прокручиваться в окне PageScroller.

Единственное событие, которое имеет смысл обрабатывать, — это OnScroll. Оно формируется, когда выполняется прокрутка.

1
2
3
4
5
procedure TForm1.PageScroller1Scroll(Sender: TObject; Shift: TShiftState; X,
Y: Integer; Orientation: TPageScrollerOrientation; var Delta: Integer);
begin
Delta := Delta div 5;
end;

Параметр Delta в данном случае определяет размер шага прокрутки равным 5.

Свойства PageScroller

AutoScroll запрещает автоматическую прокрутку при перемешении указателя мыши над кнопкой прокрутки
ButtonSize Определяет размер кнопок прокрутки(в пикселях)
Control Содержит ссылку на прокручиваемый компонент
ragScroll Указывает, будет ли компонент приемником в операциях Drag&Drop. Если содержит True, компонент будет прокручивать дочернее окно
Margin Указывает расстояние от границы компонента до соответствующей стороны дочернего окна(в пикселях)
Orientation Определяет ориентацию компонента: soVertical -по вертикали или soHorizontal -по горизонтали
Position

Определяет текущее положение прокручиваемого окна относительно границ компонента