Virtuelle Settermethode... Fachbegriff?

[sx2008]

Also ich weiss nicht warum das so kompliziert sein muss; hier der geradelinige und einfache Ansatz:

Delphi-Quellcode:

TEssen = Class
Private
  FIstFertig : Boolean;
Protected
  Procedure SetIstFertig(Value : Boolean);virtual;
public
  Property IstFertig : Boolean Read FIstFertig Write SetIstFertig;
End;

TEssenMitAnderen = Class (TEssen)
protected
  Procedure SetIstFertig(Value : Boolean);override;
End;


Procedure TEssen.SetIstFertig(Value : Boolean);
Begin
  FIstFertig := Value;
End;

Procedure TEssenMitAnderen.SetIstFertig(Value : Boolean);
Begin
  inherited SetIstFertig(Value);
  If Value Then
    DenAnderen.Bescheidsagen('Essen ist fertig!');
End;