Discussion :

[petitours]

Bonjour,

Afin d'éviter le bloquage de mon application dans une boucle while trés longue, j'ai intercalé dedans un

Code :

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

Application->ProcessMessages()

Cela fonctionne trés bien puisque je peux faire n'importe quoi d'autre dans mon appli qui n'est plus bloquée.
...SAUF le bouton quitter de la barre de menu ou la "croix" en haut a droite !

je n'ai plus moyen de quitter mon appli une fois rentré dans la boucle...je suis bien encore bloqué donc, d'une certaine manière...

: comment ce fait il que le bouton quitter ne soit pas opérant ?

ps: la fonction quitter est gérée par une fonction standard dans un ActionList. Mais j'ai essayé en ajoutant un Form1->close(); sur le même bouton quitter et ca fait pareil.


Merci par avance

[Gilles Louïse]

Quand vous cliquez la croix, l'événement OnClose est appelé, vous pouvez donc à cette occasion positionner un flag.

Par exemple, vous déclarez un booléen dans la classe principale.

Code :

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

bool fin;

Vous mettez ce booléen à true dans l'événement OnClose.

Code :

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

1
2
3
4
void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
{
fin=true;
}

Et dans la boucle en while, vous testez la condition de la boucle tout en vérifiant que fin ne soit pas passé à true, ce qui par exemple sur une boucle simple ne contenant qu'une incrémentation donnerait une syntaxe de ce genre.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
int i;
fin=false;
 
i=0;
while(i!=100000000 && !fin)
   {
   i++;
   Application->ProcessMessages();
   }
 
ShowMessage("Terminé!");

Dans ces conditions, l'événement OnClose est respecté.

À bientôt
Gilles

[petitours]

je vais faire comme ca

Mais comment se fait il que cette fonction permet de faire toutes les taches sauf celle ci, quitter ?
Je suppose qu'il y a une bonne raison mais je ne vois pas du tout...

Merci beaucoup

[Gilles Louïse]

Tant que l'événement n'est pas terminé, on ne peut pas quitter. Si l'événement contient une boucle, la boucle sera exécutée entièrement et ensuite seulement on quittera. C'est pourquoi, si on veut rendre prioritaire un autre événement dans une boucle, il faut d'une part, forcer les messages Windows par Application->ProcessMessages() à chaque itération et d'autre part, procéder par flag pour sortir de la boucle si l'événement prioritaire est appelé.

À bientôt
Gilles

[petitours]

voila une trés bonne raison

Je vais finir par ne plus savoir comment vous remercier !

Merci beaucoup !