Потомок от TObject и от TComponent

← →
3APA3A © (2003-07-17 12:04) [0]

Суть такова: У них разные конструкторы (да и не только конструкторы). У TComponent ...Create(Owner:TComponent).Что дает вот этот самый Owner?

← →
Skier © (2003-07-17 12:05) [1]

> Что дает вот этот самый Owner?

Раболепие.

← →
Юрий Федоров © (2003-07-17 12:07) [2]

При разрушении Owner"а будет разрушен и компонент.
Впрочем его можно разрушать и самому - он будет удален из списка в Owner"е

← →
3APA3A © (2003-07-17 12:11) [3]

То есть, когда быдет вызван деструктор Owner"а, он сначала вызовет деструкторы всех "подчиненных", а потом выполнит свой код?

>3APA3A © (17.07.03 12:11)
Он прибъёт (вызовет им деструктор) те компоненты, которые находятся у него в св-ве Components, а потом выполнит свой код.

> 3APA3A © (17.07.03 12:11)

> То есть, когда быдет вызван деструктор Owner"а, он сначала
> вызовет деструкторы всех "подчиненных", а потом выполнит свой
> код?

А почему бы не посмотреть в иходниках VCL, что там происходит ТОЧНО?

Раз Owner впервые появляется в классе TComponent - значит, смотрим метод TComponent.Destroy. И видим:
destructor TComponent.Destroy; var I: Integer; begin Destroying; // Выставить csDestroying у себя и по всей цепочке if FFreeNotifies <> nil then // Оповестить о своем уничтожении begin for I := FFreeNotifies.Count - 1 downto 0 do begin TComponent(FFreeNotifies[I]).Notification(Self, opRemove); if FFreeNotifies = nil then Break; end; FFreeNotifies.Free; FFreeNotifies := nil; end; DestroyComponents; // Уничтожить всю "дочернюю" цепочку if FOwner <> nil then // Удалить себя из списка своего Owner"а FOwner.RemoveComponent(Self); inherited Destroy; // Остальное end;

Потомок от TObject и от TComponent Найти похожие ветки