Das Objekt löscht sich nicht selbst, sondern ruft TList.Delete auf
oder es ruft TList.Extract auf, bevor es sich löscht.
Und wenn es alles TComponent sind TComponent.FreeNotification . [edit] das Notification-Pattern
http://geheimniswelten.de/artikel/tc...t-auto-remove/
[edit]
TComponentList<T>.TNotify.Notification sieht grad irgendwie komisch aus ... ich glaub da hab ich die falsche Version hochgeladen.
Ich glaub das muß if (Operation = opRemove) and not Contains(AComponent) then
lauten.
Delphi-Quellcode:
if Operation = opRemove then
while FParent.Extract(AComponent) <> nil do ;