TabSet

  

Компонент Delphi TabSet во многом аналогичен компоненту TabControl. Отличие от TabControl, не может быть контейнером для размещения других компонентов. Поэтому, обычно используется совместно с компонентом-контейнером (обычно с компонентом Notebook). TabSet это управляющий элемент, который не имеет никакой панели. Основное его свойство – Tabs, который содержит в себе закладки, каждая с новой строки. Свойства StartMargin, EndMargin определяют расстояние крайних закладок от краев компонента. Закладки этого компонента всегда направлены вниз. Поэтому TabSet рекомендуется располагать снизу управляемого им компонента. AutoScrol это свойство определяет возможность прокручивания полосы закладок, при большом количестве закладок появляются кнопки, которые и позволяют осуществлять прокрутку. Индекс выбранной закладки позволяет узнать свойством Tablndex, значение которого можно установить и читать в обработчике события OnChange, выполняющее при смене пользователем закладки.

Рассмотрим пример использования TabSet, синхронизируем его с Notebook.

1
2
3
4
5
6
7
8
9
10
procedure TForm14.FormCreate(Sender: TObject);
begin
TabSet1.Tabs := Notebook1.Pages; //копирует содержимое свойства Pages Notebook1 в свойство Tabs TabSet1
TabSet1.TabIndex := Notebook1.PageIndex; //активная закладка Notebook также будет активна и в TabSet
end;

procedure TForm14.TabSet1Click(Sender: TObject);
begin
Notebook1.PageIndex := TabSet1.TabIndex; //синхронизации страницы блокнота с текущей закладкой из TabSet
end;

Эти три строки кода всё, что необходимо для обеспечения синхронизации Notebook и TabSet. Для добавления закладок выберите свойство Pages компонента Notebook и впишите необходимое количество закладок, каждую с новой строки