Скачать: CL | DM;

Как уведомить компоненты об уничтожении одной из них?   Найти похожие ветки 

← →
Calm ©   (2003-08-12 08:48) [0]

Допустим имеется много компонент TMyConponent.
Имеются свойсва TMyComponent.ChildFirst:TMyConponent, TMyComponent.ChildSecond:TMyConponent.
В ходе работы программы один из компонент удаляеется. Как уведомить остальных об этом, чтобы кому нужно поняли, что свойства ChildX больше ни на что не указывают?

На ум приходят варианты:
1. Регистрировать все компоненты в некоем списке. При удалении у всех компонент списка вызывать метод проверки корретности свойств. IMHO ненаучно и извращение.
2. Сделать компоненты TWinConrol"ами и посылать им сообщения. Способ не на много отличается от первого.
3. При выполнении MyComponent1.ChildFirst:=MyComponent2; запоминать в MyComponent2 ссылку на MyComponent1. IMHO изврат еще больший.

А может это все-таки нормальные способы?
Подскажите, мастера, как быть в таком случае?

---

← →
MBo ©   (2003-08-12 08:57) [1]

см. в исходниках механизм Notification

---

← →
Zergling ©   (2003-08-12 09:01) [2]

TMyComponent = class(T...)
private
...
protected
procedure Notification(AComponent: TComponent; Operation: TOperation); Dynamic;
public
...
published
...
end;

procedure TMyComponent.Notification(AComponent: TComponent; Operation: TOperation);
begin
if Operation = opRemove then ...;
end;

---

← →
Zergling ©   (2003-08-12 09:02) [3]

MBo © Опередил :)

---

← →
icWasya ©   (2003-08-12 09:15) [4]

только не Dynamic а Override

---

← →
Zergling ©   (2003-08-12 09:28) [5]

icWasya © (12.08.03 09:15) [4]

Все определяется задачей.
Смотря от какого класса произощел его компонент. Tсли например от TCollectionItem то Dynamic.

---

← →
Calm ©   (2003-08-12 10:27) [6]

Все большое спасибо :)

---

← →
Calm ©   (2003-08-12 10:31) [7]

А как поступить лучше, если имеется подобная схема, но объекты являются не потомками TComponent, у которых есть метод Notification, а непосредственными потомками TObject?

---

← →
pasha_golub ©   (2003-08-12 11:03) [8]

Сделать их потомками TComponent ;-)

---

← →
icWasya ©   (2003-08-12 11:29) [9]

>> .. объекты не являются потомками TComponent ...
Ну тогда посмотри, как ЭТО делается у нормальных компонент и попытайся сделать что то похожее.
А делается так
каждая компонента ведёт список, комго надо известить о своём уничтожении (см FreeNotification)
в деструкторе компоненты просматривается этот список, и у всех компонент из этого списка, а такжее у Ownera, вызывается метод
Notification. Предполагается, что в методе Notification компонента правильно удалит ссылки на уничтожаемую компоненту, почистит список уведомлений (см RemoveFreeNotification), и, если необходимо, уведомит кого-нибудь ещё

---

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

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.016 c