Сервер поддерживается кафедрой информатики и вычислительной техники ГрГУ тел. +375-(0)152-445-101 E-mail : kadan@grsu.grodno.by

TObject => TPersistent => TComponent => TControl => TWinControl => TCustomControl => TTabbedNoteBook
Модуль TABNOTBK
Страница Палитры компонентов Win 3.1

Этот компонент ? уже готовое объединение первых двух (TNotebook и TTabSet) компонентов из этого раздела. Очень большим плюсом является то, что в нем закладки могут располагаться не в один, а в множество рядов один над другим. Число закладок в каждом ряду должно быть не более, чем определено в свойстве:

(Pb) property TabsPerRow: Integer;

Как и TNotebook, этот компонент имеет свойства:

property ActivePage: string;

property Pagelndex: Integer;

property Pages: TStrings;

Доступ к активной странице из набора Pages по-прежнему возможно двумя способами ? через ActivePage и PageIndex.

Закладки в этой записной книжке располагаются не снизу, а сверху. При их изображении применяется шрифт:

(Pb) property TabFont: TFont;

причем текст на активной закладке пишется полужирным начертанием (если оно не используется для обычных закладок).

Найти индекс страницы с заданным именем позволяет метод

function GetIndexForPage(const PageName: string): Integer;

а установить фокус по номеру ? метод:

procedure SetTabFocus(Index: Integer);

Щелчок на активной странице инициирует событие OnClick, а ее смена ? OnChange:

(Pb) property OnChange: TPageChangeEvent;

TPageChangeEvent = procedure(Sender: TObject; NewTab: Integer; var AllowChange: Boolean) of object;

Параметры этого события идентичны TTabChangeEvent.

Для комментария : kadan@grsu.grodno.by