свойство типа TCollection

← →
Юрий Зотов (2002-03-20 16:09) [4]

Введите в элемент коллекции приватное поле FControl и published-свойство Control - ссылку на TControl.

Еще нужно будет добавить механизм уведомлений об удалении. Для этого в элемент коллекции введите метод доступа SetControl, примерно такой:

procedure ...SetControl(const Value: TControl);
begin
if Value <> FControl then
with TComponent(Collection.Owner) do
begin
if FControl <> nil then RemoveFreeNotification(FControl);
FControl := Value;
if FControl <> nil then FreeNotification(FControl);
end
end;

И, наконец, в компоненте заместите метод Notification. В него надо добавить очистку полей FControl в элементах при удалении контролов.

свойство типа TCollection Найти похожие ветки