|
|
|
|
18.3.2. TPageControl - набор страниц с закладками
Компонент TPageControl в отличие от TTabControl может содержать несколько перекрывающих друг друга панелей класса ттаь-Sheet. Каждая панель выбирается связанной с ней закладкой и может содержать свой набор помещенных на нее компонентов.
Чтобы на этапе конструирования добавить новую панель или выбрать ранее вставленную, щелкните по компоненту правой кнопкой мыши и выберите New page (новая панель), Next page (следующая панель) или previous page (предыдущая панель). Смена панелей идет циклически, т. е. после показа последней показывается первая и наоборот.
Помимо свойств HotTrack, MultiLine, ScrollOpposite, TabHeight, TabPosition и TabWidth, которые аналогичны одноименным свойствам TTabcontrol, компонент имеет следующие специфичные свойства:
|
property ActivePage: TTab-Sheet; |
Содержит ссылку на активную панель. Установка нового значения ActivePage размещает соответствующую панель поверх остальных. Для выбора новой панели следует использовать методы SelectNextPage и FindNextPage |
|
property ActivePageIndex: Integer; |
Содержит индекс активной панели |
|
property PageCount: Integers; |
Содержит количество панелей (только для чтения) |
|
property Pages[Index: Integer] : TTabSheet; |
Возвращает ссылку на панель по ее индексу (только для чтения) |
Методы компонента:
|
function FindNextPage (CurPage: TTabSheet; GoFor-ward, CheckTabVisible: Boolean) : TTabSheet; |
Ищет следующую панель: CurPage - текущая панель; GoForward - содержит True, если поиск идет от первой панели к последней; CheckTabVisible -содержит True, если из поиска исключаются панели с признаком Tabvisible=False. Возвращает ссылку на найденную панель. Если CurPage не принадлежит компоненту, возвращает ссылку на первую или последнюю панель в зависимости от параметра GoForward |
|
procedure SelectNextPage (GoForward: Boolean); |
Делает активной следующую панель. Если GoFor-ward=True, активизируется следующая панели, в противном случае - предыдущая |
|
|
|
|
