Delphi - Урок 5: PageControll

Delphi - Урок 5: PageControll

Сегодня я хочу рассказать Вам об одном замечательном компоненте- Page Control.
Сварите себе кофе, включите легкую музыку, которая помогает думать, настроились? Ну, тогда поехали. Все как обычно: откройте делфи, создайте форму, и киньте на форму PageControl (ищите в Tool Palette):
Delphi - Урок 5: PageControll

Немного поигравшись можно заметить, что можно создавать и удалять вкладки, еще перед запуском программы, но так ведь не интересно, верно?
Delphi - Урок 5: PageControll

Давайте создадим кнопку, которая будет создавать вкладки прямо во время работы программы. Киньте на форму любую кнопку (например Button 1, ищете в ToolPalette). И перейдите в процедуру, которая активизируется при нажатии кнопки.
В var допишите
ts:TTabSheet;
Если нет Var добавьте. Затем в саму процедуру допишите:
ts:= TTabSheet.Create(Self);
ts.Caption:='Новая вкладка';
ts.PageControl:=PageControl1;
ts.Visible:=true;
Первая строчка значит создание самой вкладки, вторая задаёт название, третья указывает, в каком компоненте вкладка будет жить, а последняя указывает на видимость новой вкладки. На самом деле непонятно зачем нужна невидимая вкладка, но кто знает, какая идея может родиться в головах разработчиков…
Теперь можно маленько усложнить. Добавьте на наш компонент что-нибудь, например label.
Delphi - Урок 5: PageControll

Но теперь новая вкладка будет создаваться пустой… Дело в том что Ваш компонент (label) тоже нужно создать, вместе с новой вкладкой. Для этого дописываем такие строки:
label1:=Tlabel.Create(Self);
label1.Parent:=ts;
label1.caption:='Это программа для Zedpost.ru';
Вот теперь вроде нормально, скажете Вы, но вот странность, координаты (0,0) а на первой вкладке по центру были…
Delphi - Урок 5: PageControll

Это потому что каждый параметр нужно прописывать вручную. За высоту и ширину отвечаю параметры
label1.left:=«ваше число»;
label1.top:= :=«ваше число»;
И если вы хотите развернуть вашу вкладку на весь экран, то рекомендую воспользоваться параметром Align (в Object Inspector) и выставить там параметр alClient. Ну а подробнее о параметрах Object Inspector поговорим в следующем уроке.
Все скриншоты были сделаны при помощи скриншотера.
Как Вам урок, все ли было понятно? Интересно? Ответ пишите в комментариях или вот сюда.
Delphi - Урок 5: PageControll


Кстати, а вас интересуюткондиционеры новинки?
Дата: 2013-03-18 19:29:03   Просмотров: 3395

Теги: Delphi Уроки делфи PageControll