Классы и объекты в Object Pascal. Семенов Н.М. - 20 стр.

UptoLike

ВУЗ: 

ТПУ | Томск

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

Рубрика: 

Заметим, что даже если объявление класса выглядит просто, Вы уже имеете
значительное количество данных и кода, унаследованных от TForm. Инспектор объекта
обнаружит несколько свойств, которые определяет даже пустая форма. Эти свойства
ведут себя подобно полям данных. Можно, например, установить текущую
вертикальную позицию левого верхнего угла формы с помощью оператора
Form1.Top:=16;
где Form1-переменная, которая автоматически определяется Delphi, создается при
выполнении программы во время инициализации и соответствует уникальному
экземпляру форы.
3.1. Создание демонстрационной формы
Для создания демонстрационной формы выполните следующее:
1. Создайте новый проект с пустой основной формой. Сохраните файл модуля
формы под именем CustLst (CUSTLST.PAS, CUSTLIST.FRM) и файл проекта под
именем NameList (NAMELIST.DPR).
2. Измените свойство Name формы c Form1 на CustList.
3. Измените свойство Caption формы на ‘Сustomer List’.
4. Разместите в форме компонент ListBox со страницы Standard Палитры
компонентов. Измените его Align - cвойство на alLeft. Поле списка переместится
внутри рамки окошка и заполнит левую часть формы.
5. Разместите компонент BitBtn со страницы Additional в свободной области формы.
После этого измените его свойства Kind на bkCancel, а надпись - на Close (свойство
Kind при этом верните в состояние bkCustom, но начертание или растровая картинка на
кнопке Cancel при этом останется на месте).
6. Дополнительно разместите в форме три компонента кнопок со страницы
Standard Палитры компонентов. Назовите их (свойство Name) ButtonAdd, ButtonDelete
и ButtonChange соответственно. Затем задайте для них (свойство Caption)
соответствующие надписи: &Add, &Delete, &Change.
7. Разместите поле редактирования (кнопка”ab” страницы Standard) в форме,
удалив содержание его свойства Text, чтобы изначально поле редактирования было
пусто.
После окончания действий форма должна выглядеть примерно так, как показано
на рисунке 1.
3.2. Исследование класса формы
Пока Вы создавали форму Customer List, Delphi автоматически редактировала
код модуля CustList. Нажав кнопку мыши, сделайте окно редактора кода полностью
видимым и посмотрите сгенерированный код класса TCustList. Сгенерированный код
должен выглядеть так, как он представлен в листинге 2.
Как можно увидеть из листинга 2, форма - это пример класса. Форма - это
особый объект в том смысле, что она соответствует элементу видимого интерфейса и
создается в процессе интерактивной работы путём переноса в неё компонентов в
Дизайнере форм. Однако она является классом, подобным любым другим классам: она
имеет родителя (TForm) и определяет несколько полей.
Пусть шаблон класса TCustList был создан Delphi в то время, когда Вы
затребовали новую форму. Затем объявление класса наполнялось содержимым по мере
того, как Вы добавляли компоненты внутри разработчика формы. Заметим, что все
компоненты были добавлены в определение класса TCustList сразу после заголовка
класса в строках 11 - 16. Вы никогда не должны
менять описание этой секции

Страницы