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;