Boucles entrainant la non réponse d'un programme

Question

Bonjour, 

Lorsqu'on exécute une boucle for, while ou repeat, toute les feuilles de l'application concernée sont "bloquées" et ne répondent pas pendant la durée de la boucle. 

Dans mon programme, j'utilise plusieurs boucles vraiment très longues et complexes. Comment pouvoir commander leur arrêt à partir d'un bouton de l'application qui est alors à ce moment "bloquée" ?

Bien à vous,

sablor · Answer

Salut

Tu peux peut-être utiliser un TTImer. 

Tu mets ensuite un boolean dans le OncLick de ton bouton pour gerer l'arret de ta boucle. 

Et sur le Timer tu geres ta boucle suivant la valeur de ton boolean. 

J'espere avoir ete assez clair. 

A+
Sablor

cs_laurentl2000 · Answer

Merci pour cet astucieux conseil mais, malheureusement, je ne pense pas que ce soit la solution à mon problème vu que les composants présents sur les feuilles de l'application (comme un bouton) sont eux aussi bloqués pendant la durée de la boucle !

Ou alors je n'ai pas saisi quelque chose dans ton idée... 

Bien à toi,

sablor · Answer

Oui je pense que je me suis pas tres bien exprimé. 

Dans l'evenement OnTimer du TTimer tu inclus le code de ta boucle avec la gestion de l'incrementation et de l'arret de la boucle, donc pas de for, while ou repeat
N'oublie pas de configurer ton TTimer avec enabled := False; et Interval := 1;

Ensuite ton bouton geres si ton Timer.Enabled est egal à True ou False. 

Voila j'espere avoir ete plus clair. 

A+
Sablor

PS : Sinon essaye de voir si il y a un equivalent de DoEvents en VisualBasic pour Delphi???

cs_klem · Answer

il suffit que tu rajoutes la ligne suivante à l'intérieur de ta boucle :
application.processmessages;
...et le tour est joué !!

bonn' prog'

-= klm =-

cs_laurentl2000 · Answer

Merci beaucoup... Ca marche impec ! ;-)

++, 

Trash

Boucles entrainant la non réponse d'un programme

5 réponses

Votre réponse

Discussions similaires