Сегодня я хочу рассказать Вам об одном замечательном компоненте- Page Control.
Сварите себе кофе, включите легкую музыку, которая помогает думать, настроились? Ну, тогда поехали. Все как обычно: откройте делфи, создайте форму, и киньте на форму PageControl (ищите в Tool Palette):
Немного поигравшись можно заметить, что можно создавать и удалять вкладки, еще перед запуском программы, но так ведь не интересно, верно?
Давайте создадим кнопку, которая будет создавать вкладки прямо во время работы программы. Киньте на форму любую кнопку (например Button 1, ищете в ToolPalette). И перейдите в процедуру, которая активизируется при нажатии кнопки.
В var допишите
ts:TTabSheet;
Если нет Var добавьте. Затем в саму процедуру допишите:
ts:= TTabSheet.Create(Self);
ts.Caption:='Новая вкладка';
ts.PageControl:=PageControl1;
ts.Visible:=true;
Первая строчка значит создание самой вкладки, вторая задаёт название, третья указывает, в каком компоненте вкладка будет жить, а последняя указывает на видимость новой вкладки. На самом деле непонятно зачем нужна невидимая вкладка, но кто знает, какая идея может родиться в головах разработчиков…
Теперь можно маленько усложнить. Добавьте на наш компонент что-нибудь, например label.
Но теперь новая вкладка будет создаваться пустой… Дело в том что Ваш компонент (label) тоже нужно создать, вместе с новой вкладкой. Для этого дописываем такие строки:
label1:=Tlabel.Create(Self);
label1.Parent:=ts;
label1.caption:='Это программа для Zedpost.ru';
Вот теперь вроде нормально, скажете Вы, но вот странность, координаты (0,0) а на первой вкладке по центру были…
Это потому что каждый параметр нужно прописывать вручную. За высоту и ширину отвечаю параметры
label1.left:=«ваше число»;
label1.top:= :=«ваше число»;
И если вы хотите развернуть вашу вкладку на весь экран, то рекомендую воспользоваться параметром Align (в Object Inspector) и выставить там параметр alClient. Ну а подробнее о параметрах Object Inspector поговорим в следующем уроке.
Все скриншоты были сделаны при помощи скриншотера.
Как Вам урок, все ли было понятно? Интересно? Ответ пишите в комментариях или вот сюда.
Кстати, а вас интересуюткондиционеры новинки?