La bonne façon de créer un composant personnalisé contenant d'autres composants

Question

Je veux faire mon propre composant simple qui contient d'autres composants. Cela ressemble à :

TTag = class(TLayout)
private
    _line: TLine;
    _label: TLabel;
    _background: TRoundRect;
    _button: TLabel;
public
    constructor Create(AOwner: TComponent); override;
end;

Lorsque je place ce composant sur le formulaire, tout est correct et la structure de mon formulaire ressemble à ceci :

mais après la réouverture de l'IDE Delphi, cela ressemble à cela :

Comment ajouter des sous-composants pour éviter ce comportement étrange ?

Answer 1

C'est un cas typique pour SetSubComponent :

Appelez SetSubComponent pour indiquer si ce composant est une sous-composant. Un sous-composant est un composant dont le Propriétaire est un composant autre que le formulaire ou le module de données dans lequel il réside. À moins qu'un tel composant n'appelle pas SetSubComponent avec la valeur True pour IsSubComponent, ses propriétés publiées ne seront pas enregistrées dans le fichier du formulaire.

Pour chacun de vos sous-composants, faites un appel à SetSubComponent(True) dans votre constructeur.