Discussion :

[Kali_]

Bonjour,

J'essaie d'afficher une animation pour patienter durant l'un de mes query de nettoyage mais l'écran se fige et l'animation ne s'affiche qu'une fois le query terminé. Même en plaçant le query dans un thread différent.

Une idée ?

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
19
20
21
 
  //Je lance l'animation
  ActivityIndicator1.Animate := True ;
 
  Application.ProcessMessages ;
 
 
  LAlias.Caption := CleanTask.Alias ;
  LProgressTask.Caption := 'In Progress. Please wait' ;
  LProgressTask.Font.Color := clred ;
 
  Application.ProcessMessages ;
 
 
 
  TThread.Synchronize( nil ,procedure
    begin
  //Lancement de ma requête SQL
  DMCleaning.ExecMLTask( CleanTask ) ;
 
    end);

[exoseven]

sans faire de test je dirais que ton query n'est pas dans un thread différent car tu utilises synchronize

[Andnotor]

Avec Synchronize, ta requête est toujours exécutée par la tâche principale.

Passe par un thread anonyme :

Code :

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

1
2
3
4
TThread.CreateAnonymousThread(procedure
                              begin
                                DMCleaning.ExecMLTask(CleanTask);
                              end).Start;

et supprime ces Application.ProcessMessages.