Страница 22 из 59 Компонент TScrollBar TObject->TPersistent->TComponent-”TControl->TWinControl-^TScrollBar Модуль STDCTRLS Страница Палитры компонентов Standard TScrollBar представляет собой стандартный бегунок Windows. В таблице перечислены свойства этого компонента: (Pb) property Kind: TScrollBarKind; ScrollBarKind = (sbHorizontal, sbVertical) ; | Задает один из предопределенных типов бегунка: горизонтальный (по умолчанию) или вертикальный. | (Pb) property Max: Integer; | Максимальное значение положения бегунка. | (Pb) property Min: Integer; | Минимальное значение положения бегунка. | (РЫ property Position: Integer; | Текущее положение бегунка. | procedure SetParams(APosition, AMin, AMax: Integer); | Устанавливает сразу положение и пределы изменения бегунка. Если AMax<AMin, возникает исключительная ситуация EInvalidOperation. | (РЙ property LargeChange: TScrollBarInc; TScroll Bar Inc=l...32767; | "Большой" сдвиг бегунка. Применяется при перемещении на одну страницу. Осуществляется при щелчке мышью по поверхности компонента с соответствующей стороны или при нажатии <PgUp> или <PgDn>. | (рь)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, scBottorn, scEndScroll) ; scLineUp, scLineDown — на строку вверх/вниз; scPageUp, scPageDown — на страницу вверх/вниз; scPosition, scTrack — в заданную позицию; scTop, scBottom — в крайнее верхнее/нижнее положение; scEndScroll — извещает об окончании процесса прокрутки. В параметре ScrollPos программисту передается новое положение бегунка. При необходимости, его можно изменить. |