 |
Сервер
поддерживается
кафедрой информатики и
вычислительной техники ГрГУ
тел. +375-(0)152-445-101
E-mail : kadan@grsu.grodno.by
|
Ввод и выбор значений. TScrollBar
TObject
=> TPersistent => TComponent => TControl =>
TWinControl => TScrollBar
Модуль STDCTRLS
Страница Палитры компонентов
Standard
TScrollBar
представляет собой стандартный
бегунок Windows. В таблице перечислены
свойства этого компонента:
| (Pb) property Kind:
TScrollBarKind; ScrollBarKind = (sbHorizontal,
sbVertical) ; |
Задает один из
предопределенных типов
бегунка: горизонтальный (по
умолчанию) или вертикальный. |
| (Рb) property
Max: Integer; |
Максимальное
значение положения бегунка. |
| (Pb) property Min:
Integer; |
Минимальное
значение положения бегунка. |
| (Pb) property Position:
Integer; |
Текущее положение
бегунка. |
| Procedure SetParams(APosition,
AMin, AMax : Integer); |
Устанавливает
сразу положение и пределы
изменения бегунка. Бели AMax<AMin,
возникает исключительная
ситуация EinvalidOperation. |
| (Pb) property LargeChange:
TScrollBarInc; TScrollBarInc=1..32767 ; |
"Большой"
сдвиг бегунка. Применяется при
перемещении на одну страницу.
Осуществляется при щелчке
мышью по поверхности
компонента с соответствующей
стороны или при нажатии <PgUp>
или <PgDn>. |
| (Pb) property SmallChange:
TScrollBarInc; |
"Малый" сдвиг
бегунка. Применяется при
перемещениях на одну линию: при
щелчке на кнопках со стрелками
на концах бегунка или нажатии
клавиш управления курсором. |
Событие
(Pb) property OnScroll:
TScrollEvent;
TScrollEvent
= procedure(Sender: TObject; ScrollCode:TScrollCode; var
ScrollPos: Integer) of object;
вызывается
при каждом изменении положения
бегунка. Обработчик же события OnChange
вызывается внутри метода SetParams при
изменении значений Мах, Min и Position.
ScrollCode ? вид перемещения бегунка:
TScrollCode
= (scLineUp, scLineDown, scPageUp, scPageDown, scPosition,
scTrack, scTop, scBottom, scEndScroll);
scLineUp,
scLineDown ? на
строку вверх/вниз;
scPageUp,
scPageDown ? на
страницу вверх/вниз;
scPosition,
scTrack ? в
заданную позицию;
scTop,
scBottom ? в
крайнее верхнее/нижнее
положение;
scEndScroll
? извещает
об окончании процесса прокрутки.
В параметре
ScrollPos программисту передается
новое положение бегунка. При
необходимости, его можно изменить.
Для
комментария : kadan@grsu.grodno.by
| 
