Discussion :

[franckcl]

bonjour,

Dans mon application, le fait d'appuyer sur un bouton (TButton) cela déclenche l'ouverture d'une fenêtre modale.
Dans le oncreate de cette fenêtre j'effectue un traitement qui occupe le processeur pendant quelques secondes avant que la fenêtre ne s'affiche.
Jusque là pas de problème.

Ensuite, j'ai voulu afficher une barre de progression et c'est là que le problème apparait car si on clique deux fois de suite sur le bouton, alors les deux évènements sont pris en compte avant que la fenêtre ne s'affiche et lorsque la première fenêtre modale se ferme, l'autre fenêtre s'ouvre !!!

Voilà ce que j'ai fait:
Pour afficher une barre de progression, J'ai créé une form dans laquelle je n'ai que la barre de progression.
Au début du traitement qui prend du temps , je créé la fenêtre comme ceci:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
  ProgressForm := TProgressForm.Create(AOwner,'Loading');
  ProgressForm.Show;
  ProgressForm.ProgressBar.Max:=cnt;
 
 for i:=1 to cnt do
 Begin
    ProgressForm.ProgressBar.position:=i;
    (.. ici mon traitement qui prend du temps...)
 end;
 ProgressForm.free;

Je ne veux pas mettre la barre de progression dans la fenêtre modale car je souhaiterai utiliser cette fenêtre dans d'autres cas aussi.
Peux-t-on bloquer les messages windows pendant le tratitement ? Ou existe-t-il une autre méthode ?

Merci pour votre aide.
Franck

[anapurna]

salut

passe ton bouton a enabled avant de lancer le traitement
cela t’empêchera de le clicker deux fois

[franckcl]

Oui j'y avais pensé bien sur mais cette fonction peut être lancée par différente manière, par des menus, ou des appels de fonction dans des scripts, donc c'est pas aussi facile que ça.

[franckcl]

J'ai résolu le problème en déplaçant ma fonction consommatrice en ressources processeur dans le OnShow de la fiche.
Franck

[ShaiLeTroll]

Tu n'aurais des Applications.ProcessMessages, c'est souvent cette méthode qui provoque une réentrance via la boucle de message Windows

Utilise plutôt de Refresh pour forcer le dessin immédiat de la ProgressBar au lieu d'appeler ProcessMessages

Si tu n'as pas de TThread, tu ne peux pas exécuter deux fois ce code simultanément, seul ProcessMessages dans le cas du Click peut provoquer la Ré-Entrance
Si tu as des TThread, ajoute une Section Critique ou plutot un Synchronize vu que tu utilises une Form

EDIT : Mince, le temps que je tape ma réponse, c'est déjà :résolu:

[foetus]

J'utilise la vieille technique des jeux le booléen is_working

Code :

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

1
2
3
4
5
6
void _fastcall action_show_modal(TObject*) {
     if (is_working) { return; }
 
     is_working = true;
 
//  ...

Après pour un gros projet, le booléen peut-être assez difficile à gérer parce qu'il faut identifier [chirurgicalement] les entrées et les sorties des traitements sinon "ça ne clique plus"

Édit: Sur mon exemple il manque is_working = false; à la fin du traitement. Mais la fin d'un traitement peut-être ailleurs que dans la méthode le déclenchant.

[franckcl]

Merci pour ta réponse, nos messages ce sont croisés.
Ce post est maintenant résolu.
En fait, j'ai déplacé ma méthode consommatrice en temps (et donc de ce fait aussi la fenêtre de progression) dans le OnShow de la fenêtre modale qui est appelée (au lieu du OnCreate)
Franck

[Paul TOTH]

voir aussi cette solution