Использование условных операторов в Object Pascal. Семенов Н.М. - 13 стр.

UptoLike

ВУЗ: 

ТПУ | Томск

Составители: 

Рубрика: 

13
1. Выберите форму, щёлкнув для этого мышью на пустой области формы в окне
Дизайнера форм, или непосредственно выбрав FormMain с помощью выпадающего
списка в верхней части окна Инспектора объектов.
Замечание. Вы можете выбирать родительские компоненты выбранного в
данный момент элемента, нажимая клавишу Esc. Рано или поздно, после того, как Вы
нажмёте Esc достаточное число раз, выберется сама форма, поскольку она является
родительской для всех остальных компонентов.
2. Щёлкните на закладке «События» Инспектора объектов для выбора страницы
«События».
3. Дважды щёлкните на пустой области в правой колонке справа от имени
события OnCreate. При этом будет создан скелет метода обработки события
TFormMain.FormCreate.
4. Используя окно редактора кода, вставьте две приведённые ниже строки во
вновь образованную процедуру:
TabSet1.Tabs := Notebook1.Pages;
TabSet1.TabIndex := Notebook1.PageIndex;
Первый оператор копирует содержимое свойства Pages Notebook1 в свойство Tabs
TabSet1. Это всё, что надо сделать, чтобы гарантировать, что метки на закладках
компонента TabSet1 будут в точности соответствовать названиям страниц блокнота.
Вторая строка введённого Вами кода гарантирует, что независимо от того,
какую страницу Вы сделаете активной в процессе программирования (свойство
ActivePage компонента Notebook1), будет также выбрана и соответствующая этой
странице закладка.
Теперь Вам надо решить, какой месяц из блокнота сделать выбранным при
старте программы. Вы можете управлять этим выбором, установив свойство ActivePage
в Notebook1 с помощью Инспектора объектов. Независимо от Вашего выбора,
введённые ранее операторы обеспечат правильное отображение TabSet1 на экране в
процессе работы программы.
Введённые вами три строки кода - это всё, что требуется для обеспечения
синхронизации между блокнотом и компонентом TabSet. Этот способ будет работать
даже в том случае, если Вы позднее решите удалить или добавить страницы блокнота.
Соответствующий блокноту TabSet будет модифицироваться автоматически.
4.6 Добавление в форму новых управляющих элементов
Теперь разберёмся с управлением двенадцатью (по числу месяцев в году)
окнами списков, которые Вы включили в свой блокнот.
1. Поместите компонент GroupBox страницы Standard палитры компонентов
Delphi в область формы, не занятую блокнотом. Delphi назовёт её GroupBox1. Сотрите
имя GroupBox1 свойства Caption.
2. Поместите компонент Edit страницы Standard палитры компонентов в
группирующее окно GroupBox1. Смените свойство Name нового компонента на
EditItem и очистите его свойство Text.
3. Поместите в GroupBox1 управляющий элемент Label, взятый всё с той же
страницы Standard палитры компонентов. Смените его свойство Caption на Item: .
Теперь надо добавить ряд из трёх кнопок в группирующее окно, в котором уже есть
метка и окно редактирования.

Страницы