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

UptoLike

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

11
6. Повторите предыдущие шаги, создав страницы для остальных месяцев года.
Назовите их Mar, Apr, May, Jun, Jul, Aug, Sep, Oct, Nov и Dec соответственно.
7. По окончании добавления страниц в блокнот нажмите кнопку Close, окно
редактора блокнота закроется.
4.3 Добавление компонента TabSet (набора закладок)
Порядок действий для включения TabSet в свою форму:
1. Используя Дизайнер форм, добавьте в форму компонент TabSet. Для этого
выберите его на странице Win 3.1 палитры компонентов, после чего щёлкните кнопкой
мыши в форме прямо под уже размещённым здесь компонентом Notebook.
2. Измените свойство Align компонента Tabset на alBottom. При этом компонент
TabSet1 выровняется по нижнему краю формы.
Обратите внимание: - поскольку Вы ещё не задали ни одной закладки,
размещённый в форме компонент TabSet1 представляет собой светло - серый
прямоугольник без надписи.
В принципе, на этой стадии можно выбрать свойство Tabs для TabSet, вызвав
соответствующий редактор свойств, и ввести названия клавиш, которые соответствуют
страницам блокнота. Однако при таком подходе растёт вероятность возникновения
несоответствий между метками в TabSet и страницами блокнота.
В этом проекте вместо того, чтобы сейчас явно задавать метки TabSet, мы
синхронизируем эти два компонента позднее на программном уровне. А пока не
беспокойтесь о том, что компонент TabSet не заполнен.
4.4 Задание содержимого блокнота
Содержимое блокнота задаётся следующим образом:
1. Выберите в Дизайнере форм компонент Notebook1. Убедитесь, что его
свойство ActivePage в окне Инспектора объектов установлено равным Jan. Если нет,
выберите страницу Jan, щёлкнув на кнопке со стрелкой, расположенной рядом с полем
значения свойства, и выберите из открывшегося списка страницу Jan.
2. Поместите компонент Label в верхнюю часть поля блокнота в окне Дизайнера
форм.
3. Смените свойство Name новой метки с Label1 на LblJan, а её свойство Caption
установите равным January.
4. Поместите компонент ListBox на страницу блокнота - под меткой, но так,
чтобы он оставался в верхней части
страницы блокнота. Смените его имя с ListBox1 на
LstJan.
5. Снова выберите Notebook1 в Дизайнере форм. Измените свойство ActivePage
на Feb. Все компоненты на странице блокнота должны исчезнуть, и Вы снова увидите
пустую страницу.
6. Повторите предыдущие шаги для страницы February - добавьте метку и
назовите её LblFeb, добавьте ListBox и назовите его LstFeb.
7. Измените свойство Caption компонента LblFeb на February.
От этого утомительного
занятия можно избавиться. Есть более быстрый способ
размещения компонентов на оставшихся страницах блокнота. Для этого надо научиться
копировать один и тот же набор компонентов на каждую страницу. Вместо добавления