Bei TList, Record auf Datenänderung reagieren

[RWarnecke]

Zitat von himitsu:

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;

Ok, den Teil mit dem Notify habe ich kapiert, hoffe ich.

Zitat von himitsu:

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.

Wäre das sowas wie in Beitrag #16 von wicht ?