Компонент TTabControl – набор вкладок

Компонент TTabControl представляет собой контейнер с вкладками. Свойство Tabs определяет названия и количество вкладок. Событие OnChange возникает при выборе новой вкладки и позволяет управлять содержимым окна компонента.

Компонент TTabControl находится на вкладке Win32 и выбирается щелчком мыши по кнопке .

 

Помимо события OnChange, возникающего после выбора новой вкладки, для компонента определено также событие OnChanging, которое возникает перед сменой вкладки.

Основные свойства компонента.

Tabs – определяет надписи на вкладках и их количество.

property Tabs: TTabs;

Чтобы добавить или удалить вкладку, нужно добавить ее надпись (заголовок) к списку Tabs или удалить надпись из списка.

TabIndex – определяет индекс выбранной вкладки или содержит -1, если ни одна вкладка не выбрана. Индексация начинается с 0.

property TabIndex: Integer;

TabPosition – определяет положение зоны вкладок относительно рабочей зоны компонента.

property TabPosition: TTabPosition;

Может принимать следующие значения:

tpTop – зона вкладок находится вверху;

tpBottom – зона вкладок находится внизу.

HotTrack – если содержит True, то название закладки автоматически выделяется при перемещении над ней указателя мыши.

property HotTrack: Boolean;

Пример. На форме находится набор из двух вкладок. Если активна вкладка 1, то на экране должны быть видны компоненты Edit1 («Поле1») и Button1 («Кнопка1»), если активна вкладка 2 – компоненты Edit2 («Поле2») и Button2 («Кнопка2»)

Решение. Разместить на форме компонент TTabControl, в свойстве Tabs в инспектое объектов добавить две вкладки. На области компонента разместить два компонента TEdit и два компонента TButton, а также один компонент TLabel для поясняющей надписи.

Для события OnChange компонента TabControl1 следует написать следующий обработчик.

procedure TForm1.TabControl1Change(Sender: TObject);

Begin

{Если активна вкладка 2}

if TabControl1.TabIndex=1 then

Begin

Label1.Caption:= 'Активирована вкладка 2';

{Сокрытие компонентов Edit1 и Button1}

Edit1.Visible:= false;

Button1.Visible:= false;

{Показ компонентов Edit2 и Button2}

Edit2.Visible:= true;

Button2.Visible:= true;

End

{Если активна вкладка 1}

Else

Begin

Label1.Caption:= 'Активирована вкладка 1';

{Показ компонентов Edit1 и Button1}

Edit1.Visible:= true;

Button1.Visible:= true;

{Сокрытие компонентов Edit2 и Button2}

Edit2.Visible:= false;

Button2.Visible:= false;

end;

end;

 

 

Рис. 40. Окно программы с активной вкладкой 1

 

Рис. 41. Окно программы с активной вкладкой 1

 

В итоге при переключении на вкладку 1 форма примет вид, представленный на рис. 40, а при переключении на вкладку 2 – на рис. 41.