Discussion :

[tintin62]

bonjour
je viens de creer un Tfloatanimation

Code :

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

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

[sergio_is_back]

bonjour
je viens de creer un Tfloatanimation

Code :

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

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 :

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

1
2
3
4
5
6

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

....

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

[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

[pprem]

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.

[Paul TOTH]

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 :

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

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

[tintin62]

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

donc tfloatanimation est détruit aussi ?
merci

[Paul TOTH]

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