Многостраничный блокнот – компоненты TTabControl и TPageControl
Таблица 5.2. Основные методы-обработчики, общие для TTabControl и TPageControl.
| Объявление | Описание |
|---|---|
| type TTabChangingEvent = procedure (Sender: TObject; var AllowChange: Boolean) of object; property OnChanging: TTabChangingEvent; |
Вызывается непосредственно перед открытием новой страницы. Параметр AllowChange, установленный в значение False, запрещает открытие |
| property OnChange: TNotifyEvent; | Вызывается при открытии новой страницы |
| property OnDrawTab: TDrawTabEvent; | Вызывается при перерисовке страницы, только если свойство OwnerDraw = True |
| property OnGetlmagelndex: TTabGetlmageEvent; | Вызывается при отображении на закладке картинки |
Как видно из таблицы, большинство свойств обеспечивают различные стили представления многостраничного блокнота. При настройке стиля обратите внимание, что свойство RaggedRight может не работать, т. к. вступает в противоречие со свойством Tabwidth. При Tabwidth = 0 компонент изменяет ширину закладок в соответствии с длиной текста, в противном случае ширина закладок всегда равна значению свойства Tabwidth.
Для того чтобы в закладках совместно с текстом показать картинки, используется свойство images, в котором необходимо задать требуемый экземпляр компонента TImageList (см. ниже).
Свойство Tabindex, задающее номер текущей страницы, позволяет переключать страницы программно. Для компонента TTabControl это единственный способ изменить текущую страницу на этапе разработки. При смене страниц сначала происходит событие onchanging – в этот момент Tabindex еще содержит индекс старой страницы (и смену можно запретить), а затем OnChange – это свойство уже указывает на новую страницу.
В компоненте TTabControl число и заголовки страниц полностью зависят от свойства:
property Tabs: TStrings;
В списке перечисляются заголовки страниц, для которых автоматически создаются закладки. Порядок следования страниц зависит от расположения текстов заголовков в свойстве Tabs.
При этом забота о правильном чередовании элементов управления при смене страниц полностью ложится на программиста. Для этого необходимо в методе-обработчике OnChange определить видимость элементов в зависимости от индекса текущей страницы:
procedure TForml.TabControllChange(Sender: TObject); begin with TabControll do begin Editl.Visible: = Tablndex = 0; Edit2.Visible: = Tablndex = 1; Edit3.Visible: = Tablndex = 2; end; end;