[Andorra 2D ] TObjectlist ableiten

[igel457]

Dafür gibt es in TList die virtuelle "Notify"-Methode, die du überschreiben kannst:

Delphi-Quellcode:

type
  TMyList = class TObjectList
    protected
      procedure Notify(Ptr: Pointer; Action: TListNotification);override;
  end;

procedure TMyList.Notify(Ptr: Pointer; Action: TListNotification);
begin
  if Action = lnDelete then beign
    TSprite(Ptr).Dead();
  end;
end;