Лабораторная работа По предмету: искусственный интеллект

Список дочерних окон
-----------------------------------------------------------------

Когда вы строите объект дочернего окна, то можете в качестве

параметра конструктора Init можете задать порождающее окно (при-
мер вы можете найти в Главе 10). Объект дочернего окна отслежива-
ет свое порождающее окно через указатель на его поле Parent. Он
отслеживает также объекты его дочерних окон, сохраненные в поле
ChildList. Дочернее окно, на которое в данный момент установлен
ChildList, является последним созданным дочерним окном.
Построение дочерних окон
-----------------------------------------------------------------

Как и в случае интерфейсных объектов, объекты дочерних окон

создаются в два этапа (построение объекта и создание элемента эк-
рана). Объекты порожденного окна следует строить с помощью конс-
труктора Init порождающего окна. Например, объект окна, наследую-
щий из TWindow и содержащий командную кнопку должен иметь пример-
но следующий вид:

constructor TMyWindow.Init(AParent: PWindowsObject;

ATitle: PChar);
begin
inherited Init(AParent, ATitle);
TheButton := New(PButton, Init(@Self, id_TheButton,
'Текст кнопки', 20, 10, 100, 25, True));
end;

Обратите внимание на использование указателя Self для связи

дочернего объекта (TheButton) с порождающим (экземпляром
TMyWindow). Конструктор интерфейсного объекта автоматически до-
бавляет к своему списку дочерних окон новые объекты.

Создание дочерних элементов экрана

-----------------------------------------------------------------

Когда построен список дочерних элементов интерфейсного объ-

екта, создание элементов экрана для дочерних окон выполняется ав-
томатически. Создание родительского окна (через вызов MakeWindow)
включает в себя вызов метода SetupWindow порождающего окна. Одним
из наследуемых действий SetupWindow является вызов для каждого из
окон в списке дочерних окон методов SetupWindow.

Примечание: Автоматическое создание можно запретить.

См. ниже раздел "Запрещение автоматического создания".

При создании нового производного объектного типа нужно пом-

нить об инициализации объекта в SetupWindow после вызова наследу-
емого метода SetupWindow, например:

procedure TMyCheckBox.SetupWindow;

begin
inherited SetupWindow; { сначала по умолчанию }
.
.
. { выполнить инициализацию объекта }
end;