Удаление ссылок на связанный компонент при удалении оного

← →
OMGovdan © (2006-11-29 20:54) [0]

Здравствуйте, знатоки!

Подскажите пожалуйста, каким образом обрабатывать удаление связанного компонента, чтобы у основного не оставались битые ссылки? Если можно. с примером кода...

Заранее благодарен за помощь

← →
Юрий Зотов © (2006-11-29 21:52) [1]

type TLink = class; TOwner = class (...) // Обязательно потомок TComponent private FLink: TLink; procedure SetLink(Value: TLink); protected procedure Notification (...); override; ... end; TLink = class (...) // Обязательно потомок TComponent ... end; procedure TOwner.SetLink(Value: TLink); begin if Value <> FLink then begin if FLink <> nil then RemoveFreeNotification(FLink); FLink := Value; if FLink <> nil then FreeNotification(FLink) end end; procedure TOwner.Notification (...); override; begin inherited; if (Operation = opRemove) and (AComponent = FLink) then FLink := nil end;

← →
Юрий Зотов © (2006-11-29 22:04) [2]

Дополнение: если можно быть уверенным, что оба компонента всегда имеют общего Owner"а, то метод Set не нужен, достаточно только Notification.

Подробности см. в справке по TComponent (Notification, FreeNotification, RemoveFreeNotification).

Спасибо большое. Пример очень помог. Уже все работает.

Удаление ссылок на связанный компонент при удалении оного Найти похожие ветки