Компонент delphi PageScroller служит для прокручивания какой-либо панели вместе с размещенными на ней компонентами. Этот компонент напоминает рассмотренный ранее компонент SсrollBox. Но есть и различия между двумя этими компонентами: PageScroller прокручивает только один компонент и только в одном направлении горизонтальном или вертикальном. Да и оформление у PageScroller не похоже на полосы прокрутки в ScrollBox.
Пример компонента PageScroller показан на рисунке 1.
Основное свойство компонента 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 |
Определяет текущее положение прокручиваемого окна относительно границ компонента