Agrégation, composition avec Delphi

  { Classe de base pour tout téléviseur ------------------------------------- }
  TCustomTele = class(TComponent)
  private
    FAllumee: Boolean;
    FDiagonaleCM: Integer;
  public
    constructor Create(AOwner: TComponent); override;
  published
    property Allumee: Boolean read FAllumee write FAllumee;
    property DiagonaleCM: Integer read FDiagonaleCM write FDiagonaleCM;
  end;

  { Classe standard représentant une télé courante ----------------------------}
  TTele = class(TCustomTele)
  private
    FLecteur: TCustomLecteur;
    procedure SetLecteur(Value: TCustomLecteur);
  protected
    // Important :
    procedure Notification(AComponent: TComponent; Operation: TOperation); override;
  public
    function LecteurPresent: Boolean;
  published
    // Agrégation d'un lecteur externe à la télé (ex. : Magnétoscope, LecteurDVD)
    property Lecteur: TCustomLecteur read FLecteur write SetLecteur;
  end;

  { Les combinés --------------------------------------------------------------}
  TTeleComboDVD = class(TCustomTele)
  private
    FLecteurDVD: TLecteurDVD;
    procedure SetLecteurDVD(const Value: TLecteurDVD);
  public
    constructor Create(AOwner: TComponent); override;
  published
    // Composition d'un LecteurDVD
    property LecteurDVD: TLecteurDVD read FLecteurDVD write SetLecteurDVD;
  end;

  TTeleComboMagneto = class(TComponent)
  private
    FMagnetoscope: TMagnetoscope;
    procedure SetMagnetoscope(const Value: TMagnetoscope);
  public
    constructor Create(AOwner: TComponent); override;
  published
    // Composition d'un Magnétoscope
    property Magnetoscope: TMagnetoscope read FMagnetoscope write SetMagnetoscope;
  end;

  { Classe de base pour tout lecteur de médias --------------------------------}
  TCustomLecteur = class(TComponent)
  public
    procedure Eject; virtual;
    procedure Play; virtual;
    procedure Stop; virtual;
  end;

  TLecteurDVD = class(TCustomLecteur)
  private
    FCompatibleMP3: Boolean;
  published
    // Exemple de particularité propre au lecteur DVD
    property CompatibleMP3: Boolean read FCompatibleMP3 write FCompatibleMP3;
  end;

  TMagnetoscope = class(TCustomLecteur)
  private
    FNbeTetesLecture: Integer;
  published
    // Exemple de particularité propre au magnétoscope
    property NbeTetesLecture: Integer read FNbeTetesLecture write FNbeTetesLecture;
  end;

procedure TTele.Notification(AComponent: TComponent;
  Operation: TOperation);
begin
  inherited;
  // Si un composant nous notifie qu'il est en cours de destruction...
  if Operation=opRemove then
    begin
      //... et que c'est notre lecteur actuel alors...
      if AComponent=FLecteur then
        FLecteur := nil; // On ne garde pas une référence qui deviendra fausse.
      // Ainsi, pour d'éventuelles utilisations, dans la classe TTele, du Lecteur
      // il faut bien faire attention que le Lecteur soit toujours
      // assigné ( if Assigned(FLecteur) then .... else ... )
    end;
end;

procedure TTele.SetLecteur(Value: TCustomLecteur);
begin
  // Si c'est un lecteur autre que l'actuel :
  if FLecteur<>Value then
    begin
      // Si l'actuel existe encore
      if Assigned(FLecteur) then
        FLecteur.RemoveFreeNotification(Self); // Je ne souhaite plus être notifié par lui de sa destruction

      // Le nouveau lecteur devient l'actuel
      FLecteur := Value;

      // Si le nouveau est bien un lecteur (et pas rien (nil))
      if Assigned(FLecteur) then
        FLecteur.FreeNotification(Self);  // Je souhaite qu'il me notifie à temps de sa destruction éventuelle
    end;
end;

constructor TTeleComboDVD.Create(AOwner: TComponent);
begin
  inherited;
  // Je crée le lecteur qui m'appartient (ainsi il sera libéré en même temps que moi)
  FLecteureDVD := TLecteurDVD.Create(Self);

  // Je précise à Delphi qu'il doit faire persister l'état de l'objet FLecteureDVD
  FLecteureDVD.SetSubComponent(True);

  // Pour l'esthétique ou bien dans le cas où j'aurais plusieurs LecteurDVD en SubComponent(True)
  // je nomme le composant
  FLecteureDVD.Name := 'LecteurDVD';
end;