ВУЗ:
Составители:
Рубрика:
30: end.
___________________________________________________________________________
компонента в этой секции зайдите в Дизайнер формы и выполните необходимые
действия там. По мере того, как Вы визуально добавляете компоненты в форму,
требуемые поля автоматически добавляются к коду, и когда Вы удаляете компоненты -
Delphi удаляет поля, которые были ранее добавлены в определение формы.
CustList:
TCustList
ListBox1:
TListBox
ButtonDelete:
TButton
Edit1:
TEdit ButtonChange:
TButton
BitBtn1: ButtonAdd:
TBitBtn TButton
Рис. 2. Ансамбль объектов формы TCustList.
Разделы private и public в описании класса в строках 17 - 20 Delphi оставляет без
изменений, и Вы можете определять здесь свои собственные элементы класса.
Строки 11 - 16 листинга служат примером класса с несколькими полями. Эти
поля представляют компоненты, которые Вы добавили к форме. Технически все эти
поля - ссылки на объекты, они действуют подобно ссылочным переменным,
посредством которых Вы имеете доступ к компонентам объектов. ListBox1, EditName,
BitBth1, ButtonDelete и ButtonChange - это поля косвенного доступа, указывающие на
другие экземпляры объектов, которыми форма владеет во время выполнения.
Рис. 2 иллюстрирует совокупность объектов (ансамбль объектов) на момент
выполнения программы, соответствующий только что созданной форме.
Теоретически, поскольку на форме лежит ответственность по созданию и
уничтожению объектов, которыми она владеет, Вы должны управлять механизмом
создания таких объектов и инициализацией полей форм требуемыми ссылками где - то
внутри реализации класса TCustList. Однако, поскольку Delphi создает описания класса
формы “на ходу”, она также берет на себя ответственность по управлению ими во
время выполнения программы. Делая класс TCustList наследником TForm, Вы
получаете гарантию того, что все требуемые действия по инициализации и
уничтожению будут происходить автоматически и в нужное время.
Блок описания типов в строках 9 - 21 объявляет внутреннюю структуру
экземпляра класса . В дополнение ко всем тем полям и свойствам, которые TCustList
унаследовал от своего предка TForm, добавлено несколько новых полей. Исходный
класс TForm был таким образом расширен, и каждый экземпляр его потомка, TCustList,
требует немного больше памяти, чем он бы занимал, если бы Вы не размещали в форме
