Discussion :

[azzazzelleio]

salut j'ai utilisé le tanimate dans delphi 7 et delphi xe7 j'ai choisie dans la propriété commonAVI une animation et la propriété active a true une image s'affiche dans le tanimate1 (sans animation) mais lors de l’exécution rien ne s'affiche ...... merci de me donner la solution

[SergioMaster]

Bonjour,

et dans quel code utilisez-vous cette animation ?
Pour peu qu'il s'agisse d'une boucle de ce genre

Code :

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

1
2
3
4
5
 
Animation.active:=True;
for i:=0 to n do
 sleep(1000); 
Animation.Active:=False

c'est tout à fait normal
une réponse à ce problème est de mettre un Application.ProcessMessages à l'intérieur de la boucle
mais la meilleure réponse est d'utiliser un thread

[azzazzelleio]

Merci pour votre réponse .......
Ce que je veux faire est de décorer mon application
par ajouter une tanimate se lance avec la recherche dans ma base de données .
j'ai choisi dans commonAVI avifindefile que je l'active avec le lancement de la recherche (animate1.active := true

[ShaiLeTroll]

L'exécution du SQL étant souvent bloquant, tu vas devoir utiliser un thread pour ouvrir le DataSet puis une fois terminé, tu le connectes au DataSource

TOraQuery possède une propriété NonBlocking qui m'a permis de faire exactement comme toi, une Animation et une pseudo barre de progression
Surtout que je lance une bonne centaine de requête à la suite, cela donne à l'utilisateur l'impression que son calcul tourne bien.

[Papy214]

La JVCL propose le composant TJvGIFAnimator qui a une propriété Threaded.
Est-ce ça ne ferait pas l'affaire à peu de frais en remplaçant l'AVI par un GIF ?

[SergioMaster]

Ce que je veux faire est de décorer mon application

ça je l'avais compris mais comme vous ne fournissez aucun code pour le montrer je vous ai proposé ce qu'il y a de plus simple et qui peut bloquer une animation pourtant activée.

la première solution (qui est une fausse bonne idée)

Code :

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

1
2
3
4
5
6
7
Animation.active:=True;
for i:=0 to n do
 begin
  sleep(1000);
  Application.ProcessMessages;
 end;
Animation.active:=false;

La seconde solution passe par les Threads comme nous vous l'avons indiqué (vous trouverez un très bon cours d'Olaf Monien dans les Delphi BootCamp, inscription aux replays gratuitement sur EmbarcaderoAcademy )

à peu de frais

Pas un Thread qui nécessite beaucoup plus de code mais avec un TTask Delphi Rio : voici la démarche

Ajouter l'unité System.Threading;

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
procedure TForm24.Button1Click(Sender: TObject);
begin
ANimate1.Visible:=True;
Animate1.active:=True;
TTask.Run( procedure
            var i : Integer;
           begin
            for i:=0 to 10 do sleep(100);
            // pour ne pas accéder à l'UI directement je rajoute une synchronisation 
           TThread.Synchronize(nil,
               procedure 
                  begin
                     Animate1.Active:=False;
                     Animate1.Visible:=False;
                  end);
           end);
end;