arret d'un boucle par appui d'un boutonRésolu

Question

Je souhaiterai faire une boucle while tant mon bouton n'est pas appuyé mais je ne sais pas ce que mettre comme condition

while not ??? do
begin
  monAction
end;

Y a-t-il une fonction du style Bouton.Click?
Merci d'avance

cs_Loda · Accepted Answer

"'Application.ProcessManager' ?
C'est sa qui va empecher que je puisse plus cliquer sur aucun bouton pendant ma boucle?"

c'est le contraire, ça vas permettre a ton programm de process (traiter) les message que windows lui envoye (comme un click par exemple).

Si ton traitement est long, ne l'appel pas trop souvent. cela ralentis pas mal le programme. fait des essais...

bon code,

JulioDelphi · Answer

declare un boolean du genre :
bCancel: boolean = false;

puis sous le clic du bouton : bCancel := true;

et dans la boucle tu vérifies si bCancel est TRUE, dans ce cas, tu arretes ta boucle.
qu'en penses-tu ?
ps : je pense que tu auras besoin de 'Application.ProcessMessages;' pour que l'appuie du bouton sois 'pris en compte' (je ne sais pas comment le dire :p) avant la fin de l boucle, la boucle va 'bloquer' en quelques sortes l'acces au bouton.
bon codage

math3002 · Answer

Merci c'est ça
Mais c'est quoi 'Application.ProcessManager' ?
C'est sa qui va empecher que je puisse plus cliquer sur aucun bouton pendant ma boucle?

JulioDelphi · Answer

je viens de tester, ça marche :
je pose une TProgressBar (step=1, max=5000), et 2 TButton, je declare bCancel ici:

var
  Form1: TForm1;
  bCancel: boolean = false;


puis bouton 1 :

procedure TForm1.Button1Click(Sender: TObject);
begin
 bCancel := true;
end;


bouton 2 :

procedure TForm1.Button2Click(Sender: TObject);
begin
 while ProgressBar.Position <5000 do
  begin
   if bCancel then exit;
   ProgressBar..StepIt;
   application.ProcessMessages;
   sleep(1);
  end;
end;

=)

math3002 · Answer

Merci beaucoup

f0xi · Answer

var
  Form1 : TForm1;
  bCancel : boolean = false;

procedure TForm1.Button1Click(Sender: TObject);
begin
    bCancel := true;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
    while (not bCancel) and (ProgressBar.Position < 5000) do begin
      { code here }
      if odd(ProgressBar.Position) then  begin 
         ProgressBar.StepIt;
         application.ProcessMessages;
     end;
    end;
end;

<hr size="2" width="100%" />Croc (click me)

cs_Delphiprog · Answer

Après la boucle, pense à "réarmer" le flag bCancel si tu veux que àa fonctionne les fois suivantes :

procedure TForm1.Button2Click(Sender: TObject);
begin
    while (not bCancel) and (ProgressBar.Position < 5000) do begin
      { code here }
      if odd(ProgressBar.Position) then  begin 
         ProgressBar.StepIt;
         application.ProcessMessages;
     end;
    end;
   //réinitialiser le flag
   bCancel := False;
end;

May Delphi be with you !
<hr color="#008000" />
Pensez à cliquer sur Réponse acceptée lorsque la réponse vous convient.

cs_Loda · Answer

lol,  si on s'y met tous on va y arriver...

elguevel · Answer

C'est Application.ProcesMessage, pas Application.ProcessManager !

Dsl mais çà m'écorche lol

Bon Code ;-)

cs_Loda · Answer

c'est procesSmessageS , pas ProcesMessage

:-D

tant qu'a être juste.... 

moi, ça m'écorche pas tant. tant qu'on sait de quoi on parle....


PS pour math3002: 
stp, accept les réponses une fois que tu les a testées.

elguevel · Answer

AH PU**** j'trouve le moyen de faire une faute dans ma correction .... AHHHH çà m'ecorche encore PLUS ... auto-flagélation avec des Orties !!!

Cirec · Answer

Il a quand même fallut trois Admins pour arriver à une réponse aussi simple et surtout si élémentaire ... 

     
@+
Cirec

<hr size="2" />

JulioDelphi · Answer

*vois pas le rapport avec le fait d'être admin*

Mon site DELPHI =)

Cirec · Answer

Avant toutes choses ... c'était une plaisanterie et sans méchanceté aucune ...

je n'ai pas besoin de rapport puisque c'est une constatation 
 
@+
Cirec

<hr size="2" />

elguevel · Answer

L'admin est censé etre une force vive, bourré de connaissance, ne manquant jamais de réponse et faisant preuve d'une objectivité sans faille :-)

non ?

cs_Delphiprog · Answer

Elle me plait bien cette définition d'Elguevel. 
Je propose qu'on la mette dans le dico !

May Delphi be with you !
<hr color="#008000" />
Pensez à cliquer sur Réponse acceptée lorsque la réponse vous convient.
http://www.afipa.net

DeltaFX · Answer

L'admin est censé 









être 





une
force vive : on l'appelle Damoclès !





être 





bourré de connaissance : il sait COMMENT ramener un quota utilisateur à 20 ko.....

ne jamais manquer de réponse : 



il PEUT ramener un quota utilisateur à 20 ko.....













être 





d'une objectivité sans faille : l'utilisateur EST LA SOURCE DE TOUT LES MAUX, ramenons lui son quota à 20ko !













Fear the Wrath of the (SYS/DBA)Admin

Arret d'un boucle par appui d'un bouton

17 réponses

Votre réponse

Discussions similaires