Vererbungsprobleme

[KrasserChecker]

Hi,
doch es ist ohne diesen Umweg zu machen.
Wenn Du dir die Definition von "TObjectList" anschaust erkennst Du, daß zwar nicht die Methode "Add", wohl aber die Methode "Notify" überschrieben werden kann. Über diese Methode wird gemeldet, welche Aktion gerade passiert ist.

In deiner Ableitung müsste also nur das hier stehen:

Delphi-Quellcode:

protected
    procedure Notify(Ptr: Pointer; Action: TListNotification); override;

[...]

procedure TMyObjectList.Notify(Ptr: Pointer; Action: TListNotification);
begin  
  inherited Notify(Ptr, Action);

  if Action = lnAdded then
    MachSonstNochWas; 
end;