Как правильно такое делается?

Имею след:

TDataSupplier = class( TComponent )
...
public
 procedure BuildData;
...
end;

TDataConsumer = class( TCustomControl )
...
published
 property DataSupplier: TDataSupplier read FDataSupplier write SetDataSupplier;
...
end;

В конце метода TDataSupplier.BuildData надо уведомить все экземпляры класса TDataConsumer, у которых свойство DataSupplier указывает на соответствующий экземпляр,что бы они отрисовались.  
Буду признателен за помощь.

В DataSupplier держать список потребителей.
Предусмотреть механизм нотификации DataSupplier об уничтожении потребителя.

To MBo ©

Спасибо!

> Handbrake  (22.04.2010 17:10:02)  [2]

Такой механизм уже есть и называется от Notification