Eigene Komponente ???

[Meflin]

Ja schon klar. Aber darum ging es ja hier nicht so in etwa:

Delphi-Quellcode:

protected
  procedure Notification(AComponent: TComponent; Operation: TOperation); override;

procedure TFoo.Notification(AComponent: TComponent; Operation: TOperation);
begin
  inherited Notification(AComponent, Operation);
  if (Operation = opRemove) and (fImageList <> nil) and (AComponent = ImageList) then
    ImageList := nil;
end;