Discussion :

[benj63]

Bonjour,

Je réalise actuellement une application qui traite un grand nombre de données dans une boucle :

Code :

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

1
2
3
4
5
6
7
8
void maFenetre:FormActivate(TObject *Sender)
{
   for(int i=0;i<10000;i++)
   {
       (...)
       Application->ProcessMessages(); // pour que ça ne reste pas bloqué !
   }
}

Or je souhaiterais que lors d'un clic de la souris sur la croix de la fermeture de la fenêtre, celle-ci stoppe ma boucle (via un booléen) et ferme la fenêtre :

Code :

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

1
2
3
4
5
6
7
8
9
void maFenetre:FormActivate(TObject *Sender)
{
   stop = false;
   for(int i=0;(i<10000)&&(!stop);i++)
   {
       (...)
       Application->ProcessMessages(); // pour que ça ne reste pas bloqué !
   }
}

Mais j'ai beau mettre "stop=true;" dans l'événement "OnClose" ou dans l'événement "OnCloseQuery" de ma fenêtre, cela ne fonctionne pas, elle ne ferme la fenêtre qu'à la fin de ma boucle... Que faire ?

Merci par avance !

[t0ine]

Je ne m y connais pas bcp mais je pense que le temps que tu cliques sur la croix pr sortir , ton application a eu largement le temps de faire tourner ta boucle jusqu au bout .... Mais bon j'ai pt pas bien compris ton problème ...

[benj63]

Non non, ma boucle tourne toujours
Dans les (...) il y a du code que j'ai omis volontairement ici

[Kerod]

Ta variable est défini en global ???

[benj63]

Oui, ma variable "stop" est définie en global dans la déclaration de "maFenetre".

Le blocage vient peut-être du fait que la boucle est dans l'événement OnActivate... mais je suis obligé de mettre cette boucle là-dedans, car il s'agit de l'affichage d'une liste à l'ouverture de la fenetre.

[Kerod]

En C++ il existe une fonction CanClose qui permet de dire si oui ou non on peut fermer l'application. Mais le truc c'est que je sais pas si elle existe sous Builder.*

SInon je pense à un truc mais ca risque d'être long :
-> Détecter un clic sur le position de la croix
-> Faire un break de ta boucle et fermer l'application

[benj63]

c'est la chose à laquelle j'avais pensé mais malheureusement, l'événement "onmousemove" ne fonctionne que lorsque la souris est SUR la fenêtre, mais pas sur la barre de titre de la fenêtre (qui contient les boutons croix, agrandissement, etc...)

[Kerod]

C'est bizarre je vient de faire un truc comme ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
   stop = false;
   for(int i=0;(i<10000)&&(!stop);i++)
   {
       Edit1->Text = i;
       Application->ProcessMessages(); // pour que ça ne reste pas bloqué !
   }
}
void __fastcall TForm1::FormCloseQuery(TObject *Sender, bool &CanClose)
{
stop = true;
}

Et ma fenetre se ferme correctement avant la fin du processus

[benj63]

oui, cet exemple fonctionne aussi pour moi... sauf que je n'utilise pas ma boucle dans un événement Button1Click, mais dans l'événément OnActivate de la fenêtre, et je pense que c'est cela qui coince !

[niglo]

Surement que tu ne dois pas pouvoir lancer OnClose tant que OnActivate ne s'est pas terminé! Doit y avoir un mécanisme de "sécurité" qui est peut être désactivable !

Bon courage :o

[totoche76]

Hello

Et en utilisant un composant ApplicationEvents et OnIdle??
Essaye de mettre le code de ton FormActivate dans ApplicationEvents->OnIdle, en faisant en sorte que le OnIdle ne s'exécute qu'une fois ?

Code :

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

1
2
3
4
5
6
7
8
9
10
void __fastcall TForm1::ApplicationEvents1Idle(TObject *Sender, bool &Done)
{
  ApplicationEvents1->OnIdle = NULL;
  stop = false;
  for(int i=0;(i<10000)&&(!stop);i++)
  {
      (...);
      Application->ProcessMessages(); // pour que ça ne reste pas bloqué !
  }
}

[benj63]

Ca pourrait fonctionner avec la méthode du OnIdle, mais apparemment ça marche un coup, puis après ça ne fonctionne plus correctement... je vais essayer de chercher davantage dans ce sens...

Merci pour l'idée !

[totoche76]

Tu as besoin de refaire ta boucle par la suite (en repassant par le ApplicationEvents1Idle) ??
Si c'est le cas, dès que tu en as besoin, fait

Code :

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

ApplicationEvents1->OnIdle = ApplicationEvents1Idle;

[Walm]

C'est peut-être une connerie, mais pourquoi pas faire un thread que tu lance dans ton FormActivate et que tu stop depuis ton FormCloseQuery?
Je trouve ca plus 'propre', non?

[bru-no]

Le problème vient certainement de l'évènement OnActivate, car il se déclenche à chaque fois que la fenêtre a le focus si j'ai bien compris ça :

Extrait de l'aide de BDS 2006 :

Class
TCustomForm

Syntax
[C++] __property TNotifyEvent OnActivate = {read=FOnActivate, write=FOnActivate};

Description
Use OnActivate to perform special processing when the form receives focus. A form becomes active when focus is transferred to it (when the user clicks on the form, for example).

Du coup je pense que quand tu cliques c'est d'abord cet évenement qui se déclenche et stop reste à false...
Tu peux peut-être le vérifier avec de bêtes ShowMessage dans les 2 évenements, et voir lequel se déclenche ?