Discussion :

[Invité]

Bonjour,

je fais bien la différence entre la méthode Create et la propriété Parent d'un objet.

Mais en ce qui concerne la méthode create, j'ai 3 possibilités dans mon cas :
Create(nil), Create(self) ou Create(MyGrid).
Je suppose que la différence est liée à la destruction de l'objet (qui possède un propriétaire Aowner ou pas) :

• Si Create(MyGrid), en supposant que je détruise (MyGrid), l'objet créé sera détruit automatiquement (i.e. sans code dédié à cette tâche) avec MyGrid;
• Idem pour Create(Self) où l'objet créé sera détruit automatiquement avec la TForm.
• Mais en ce qui concerne le Create(nil), je devrais détruire par code l'objet par FreeAndNil.

L'interprétation est-elle correcte ?

Merci. Cordialement. Gilles.

[tourlourou]

Bonjour,
C'est bien ainsi qu'il en va pour les TComponent, puisque les autres objets n'ont pas de Owner.

[Paul TOTH]

c'est presque totalement vrai

la nuance est qu'un composant qui possède un Parent est lui aussi détruit avec son parent, même si son owner est nil

[ALWEBER]

Après moult talonnements j'ai choisi "Create(self)" Ainsi je peux facilement utiliser les fonctions FindComponent et autres de la même famille

Dans cet exemple je change le nombre de composants que je détruis et recrée par programme

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
  TfPie = class(TForm)
...
  for i1 := fPie.ComponentCount - 1 downto 0 do
  begin
    if fPie.Components[i1] is TPie then
      fPie.Components[i1].Free
    else if fPie.Components[i1] is TTextLayer3D then
      fPie.Components[i1].Free
    else if fPie.Components[i1] is TDummy then
      if fPie.Components[i1].Name <> 'Dummy1' then
        fPie.Components[i1].Free;
  end;