Справочник по компонентам Delphi. Часть 2 - Компонент TScrollBar

Written on . Posted in Delphi

ОГЛАВЛЕНИЕ

Страница 23 из 61

Компонент 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 программисту передается новое положение бегунка. При необходимости, его можно изменить.

форум delphi