Форум: "Основная";
Текущий архив: 2003.07.31;
Скачать: [xml.tar.bz2];

Вниз

Потомок от 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"а, он сначала вызовет деструкторы всех "подчиненных", а потом выполнит свой код?

---

← →
Skier   (2003-07-17 12:13) [4]

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

---

← →
Юрий Зотов   (2003-07-17 12:45) [5]

> 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;


---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2003.07.31;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.009 c