TObjectList nutzt dieses z.B. um Objekte freizugeben
Delphi-Quellcode:
procedure TObjectList.Notify(Ptr: Pointer; Action: TListNotification);
begin
if OwnsObjects then
if Action = lnDeleted then
TObject(Ptr).Free;
inherited;
end;
du überschreibst es und macht z.B. sowas
Delphi-Quellcode:
procedure TGesellschafterObjListe.Notify(Ptr: Pointer; Action: TListNotification);
begin
if (Action = lnAddted) and Assigned(FOnChange) then
FOnChange(Self, TGesellschaftsname(Ptr));
inherited;
end;
PS: OnChange reagiert so nur auf Änderungen der Liste,
wenn auch z.B. auf Änderungen/Zuweisungen in/an .Zeichnungskapital reagert werden soll,
dann muß dieses in TGesellschaftsname abgefangen und an die TGesellschafterObjListe weitergereicht werden.