Компонент delphi TabControl представляет собой страницу с управляющим элементом похожими на кнопки со многими положениями. Для этих кнопок надо написать обработчики событий OnChanging или OnChange, чтобы определить, что будет происходить на панели TabControl при переключении закладок. Число закладок с надписями устанавливается в свойстве Tabs. В нем задается надписи закладок. количество закладок зависит от количества строчек в этом свойстве.
Свойства TabControl
Style | определяет стиль компонента: tsButtons — кнопки, tsFlatButtons — плоские кнопки , tsTabs — закладки |
MultiLine | если true,то закладки размещаются в несколько рядов, если они не помещаются в один ряд |
TabPosition | определяет расположения закладок: tpBottom — снизу, tpLeft — слева, tpRight — справа, tpTop — сверху компонента (по умолчанию) |
TabHeight | высота закладок в пикселях, если значение это значение равно 0, то размеры закладок определяются автоматически |
TabWidth | ширина закладок в пикселях, если значение это значение равно 0, то размеры закладок определяются автоматически |
Images | ссылка на компонент ImageList, в котором содержится список изображений |
ScrollOpposite | определят способ размешивания закладок в несколько рядов |
Для примера использования TabControl в delphi создадим небольшую программу. Создаем новую форму на нее кидаем TabControl, а на него один компонента label и один компонент button, создаем в TabControl 2 закладки, для этого находим свойство Tabs открываем редактор путем нажатие на кнопку с тремя точками. В редакторе в первой строчке вводим <простой шрифт> во второй <жирный шрифт> нажимаем ок.
Теперь двойным кликом по TabControl открываем событие Change куда вставляем вот этот код
1 2 3 | case tabcontrol1.TabIndex of <em>0: font.Style:=[]; </em> //при клике на вкладку простой шрифт, шрифт у всех компонентов будет простым <em>1: font.Style:=[fsBold]; </em> //при клике на вкладку жирный шрифт, шрифт всех надписей будет жирный |