tfloatanimation destroy ou free

bonjour
je viens de creer un Tfloatanimation

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

for nb:=1 to 7 do begin   cre_boule(nb);   anAnimation[nb]:=TFloatAnimation.Create(form1) ;   anAnimation[nb].Parent:=uneBoule[nb]; anAnimation[nb].PropertyName:='Position.X'; anAnimation[nb].Duration:=8-nb; anAnimation[nb].StartFromCurrent:=True; anAnimation[nb].StopValue:=0+po; anAnimation[nb].StartValue:=200; anAnimation[nb].Delay:=nb; anAnimation[nb].Start;   po:=po+50; end;

---

mais je voudrais savoir si on doit les detruire apres usage
avec free ou destroy moi quand j'essai de detruire on me dit pas de pointeur

Citation:

---

Envoyé par tintin62

bonjour
je viens de creer un Tfloatanimation

Code:

---

1 2 3 4 5 6

.... anAnimation[nb]:=TFloatAnimation.Create(form1) ; ....

---

mais je voudrais savoir si on doit les detruire apres usage
avec free ou destroy moi quand j'essai de detruire on me dit pas de pointeur

---

C'est normal, en créant l'instance avec form1 comme propriétaire, ça va faire en sorte que c'est le designer qui libèrera l'instance à la fermeture de form1. Dans ce cas tu n'as pas besoin de les libérer toi même
Si tu veux libérer les instances toi même, il faut créer l'instance sans propriétaire, comme ça :

Code:

---

1 2 3 4 5 6

.... anAnimation[nb]:=TFloatAnimation.Create(nil) ; ....

---

Et après il faut utiliser Free sur chaque instance pour la supprimer !

bonjour
même si je fais plusieurs fois appelle a tfloatanimation
car a la fin de l'animation je reclique sur le button qui recré
les memes tfloatanimation
merci

A noter que les animations ne se désactivent pas d'elles-mêmes en fin d'animation, donc si vous les utilisez plusieurs fois, selon que vous passez par Start/Stop ou Enabled, le comportement ne sera pas le même.

Citation:

---

Envoyé par tintin62

bonjour
même si je fais plusieurs fois appelle a tfloatanimation
car a la fin de l'animation je reclique sur le button qui recré
les memes tfloatanimation
merci

---

la question n'est pas très claire...

donc quand on crée un composant en lui attribuant un Owner, ou un Parent pour un composant visuel, il est détruit automatiquement si le Owner ou le Parent est détruit.

dans tous les autres cas il faut libérer soit-même les objets qu'on crée.

à quoi te sert le tableau anAnimation[] ?

j'aurais bien vu un code comme ça

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

or nb:=1 to 7 do begin   cre_boule(nb);   var anAnimation :=TFloatAnimation.Create(uneBoule[nb]) ; // l'animation appartient à la boule   anAnimation.Parent:=uneBoule[nb]; anAnimation.PropertyName:='Position.X'; anAnimation.Duration:=8-nb; anAnimation.StartFromCurrent:=True; anAnimation.StopValue:=0+po; anAnimation.StartValue:=200; anAnimation.Delay:=nb; anAnimation.Start;   po:=po+50; end;

---

du coup ça règle la question de l'animation...mais pas celui des boules :)

est-ce que les boules sont détruites ? sont-elles réutilisées ?

si elles sont détruites, les animations suivront
si elles sont réutilisées, il ne faut créer l'animation qu'une fois lors de la création de la boule et la réutiliser également

bonjour
oui je détruit les boules
se son des Tcircle et Ttext détruit par free

donc tfloatanimation est détruit aussi ?
merci

oui, je viens de vérifier, sous FMX c'est particulier car la propriété Parent est au niveau de TFmxObject, sous VCL ce n'est qu'au niveau de TControl

dans TFmxObject.Destroy tu as un appel à DeleteChildren qui détruit tous les objets enfants...c'est donc valable pour un FloatAnimation

bonsoir
merci encore pour votre aide
donc résolu

bonjour
je reviens sur mon résolu
pour vraiment comprendre
si je déclare

Code:

---

1 2	boule_blanc := TCircle.Create(form1); boule_blanc.Parent:=form1;

---

et

Code:

---

1 2	PathAnimation1 := TPathAnimation.Create(Self); PathAnimation1.Parent := boule_blanc;

---

si je quitte et la form1 se détruit pas besoin avant de quitter de
faire

Code:

---

1 2	boule_blanc.free and boule_blanc:=nil PathAnimation1 .free and PathAnimation1:=nil

---

merci