Attendre la réponse d'une boite de dialogue ??

**Ben_Le_Cool** · 15/07/2005, 14h30

Bonjour,

Ma question est toute simple. Y a-t-il un moyen de continuer mes traitements en attendant une réponse d'une boite de dialogue?
Par exemple, j'ai une boite de dialogue pour confirmer que l'on veut vraiment quitter l'application. J'aimerai bien qu'en attendant la réponse de l'utilisateur mon application continue ses traitements, chose qui ne se fait pas maintenant.

Merci.

:

:

**Nono40** · 15/07/2005, 14h35

Comment sont effectués les traitements ?

**Ben_Le_Cool** · 15/07/2005, 14h39

C'est des messages que je reçois d'un serveur. J'empile ces messages dans une liste et je traite message par message.

**Nono40** · 15/07/2005, 14h50

:

Alors c'est bizarre, car normalement cela ne devrait pas bloquer les évènements des composants, sauf si tu le fat explicitement dans le OnCloseQuery.

La demande de confirmation est bien dans le OnCloseQuery ?
Quel est le code dans cet évènement ?
Quels sont les évènements utilisés pour la réception de tes messages ?

**declencher** · 15/07/2005, 15h14

Le mieux ne serait il pas de mettre le traitement des messages serveur dans un thread ?
Pour moi c'est normal que tes traitements plantes, mais devant nono40 qui trouve ça étrange, j'avoue que je me fais petit et je me cache

**Ben_Le_Cool** · 15/07/2005, 15h33

En fait ce n'est pas les évènements des composants sont bloqués, mais c'est plutot mon propre traîtement à moi qui est bloqué.
Comme je l'ai dit, j'ai une liste de messages, je traite message par message. Si je clique sur quitter, j'ai mon message de confirmation de quitter qui apparaît, si je clique sur non, mon programme continue son traitement là où il s'est arrêté. Moi ce que je veux, c'est qu'en attendant la réponse de l'utilisateur, mon programme continue son traîtement.

**PpPool** · 15/07/2005, 17h33

Envoyé par Ben_Le_Cool

En fait ce n'est pas les évènements des composants sont bloqués, mais c'est plutot mon propre traîtement à moi qui est bloqué.
Comme je l'ai dit, j'ai une liste de messages, je traite message par message. Si je clique sur quitter, j'ai mon message de confirmation de quitter qui apparaît, si je clique sur non, mon programme continue son traitement là où il s'est arrêté. Moi ce que je veux, c'est qu'en attendant la réponse de l'utilisateur, mon programme continue son traîtement.

ton traitement en question pourquoi alors ne pas le mettre dans un thread indépendant ?

**Ben_Le_Cool** · 15/07/2005, 17h54

Envoyé par PpPool

Envoyé par Ben_Le_Cool

En fait ce n'est pas les évènements des composants sont bloqués, mais c'est plutot mon propre traîtement à moi qui est bloqué.
Comme je l'ai dit, j'ai une liste de messages, je traite message par message. Si je clique sur quitter, j'ai mon message de confirmation de quitter qui apparaît, si je clique sur non, mon programme continue son traitement là où il s'est arrêté. Moi ce que je veux, c'est qu'en attendant la réponse de l'utilisateur, mon programme continue son traîtement.

ton traitement en question pourquoi alors ne pas le mettre dans un thread indépendant ?

Dans ce cas ça sera tout mon code qui sera dans un seul thread.

**Nono40** · 15/07/2005, 21h10

Ce que je ne comprend pas, c'est pourquoi ça bloque les traitements....

Tu peux présenter un peu ton code ?

**Bloon** · 17/07/2005, 11h56

C'est bizarre, par exemple ce code :

Code :

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

1
2
3
4
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  CanClose := MessageDlg('Quitter l''application ?',mtConfirmation,[mbYes, mbNo],0) = mrYes;
end;

Ne bloque pas les timers présents sur la fenêtre.

Bloon

**Bouguennec** · 15/12/2006, 00h39

Je ne suis pas très expérimenté mais peut-être qu'en créant une nouvelle fiche du model de ta boite de dialogue plutôt qu'utiliser une boîte de dialogue à proprement parlé tu pourras supprimer ce bloquage.

**LadyWasky** · 15/12/2006, 09h56

mouais je pense que le "blocage" provient certainement du caractère modal de la dite boite de dialogue. Me trompe-je ?

**edam** · 15/12/2006, 10h17

oui et non, en plus ce ga n'a pas répondu nono (donne ton code)
He waskol où est nono, il a disparu sans laissé de trace

**LadyWasky** · 15/12/2006, 10h35

Envoyé par edam

oui et non, en plus ce ga n'a pas répondu nono (donne ton code)
He waskol où est nono, il a disparu sans laissé de trace

Pas très gentil ça edam

Saches que nono40 est très occupé et n'a pas forcément le temps de suivre une discussion de A à Z.

**edam** · 15/12/2006, 11h48

Envoyé par waskol

Pas très gentil ça edam

Saches que nono40 est très occupé et n'a pas forcément le temps de suivre une discussion de A à Z.

je plaisante,

, mais vraiment il ns manque ici, et ne soit pas jalous

**mayloshi** · 15/12/2006, 11h59

Envoyé par waskol

mouais je pense que le "blocage" provient certainement du caractère modal de la dite boite de dialogue. Me trompe-je ?

Moi aussi je penses a ça. Je crois qu'il a peut etre mal formulé sa question.

**Eric Boisvert** · 15/12/2006, 20h41

j'ai l'impression que ceci pourrait te plaire...
ca permet de demander une confirmation pour quitter
une boucle de traitement..qui est devenue trop longue pour l'usager...

j'ai simulé le tout avec 2 boutons sur une form...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
 
 
var
UserWantToQuit:Boolean;
 
//*** l'usager est impatient et veux quitter le traitement ***
procedure TForm1.Button1Click(Sender: TObject);
begin
    UserWantToQuit:=TRUE;
end;
 
 
//*** ici, le traitement qui est très long... ***
procedure TForm1.Button2Click(Sender: TObject);
var
    Diag:TForm;
    i:integer;
begin
    //Prepare la fenetre de confirmation...
    Diag:=CreateMessageDialog( 'Est-ce qu''on arrête le traitement?',mtCustom,[mbYes,mbNo]);
    //Met la fenetre tjrs en avant plan
    SetWindowPos(Diag.Handle,HWND_TOPMOST,
                 0,0,0,0,SWP_NOSIZE+SWP_NOMOVE);
    try
        for i:=0 to 1000 do
        begin
            //*** do some job... ***
            sleep(100);
            //*** do some job... ***
            sleep(100);
            //*** do some job... ***
            sleep(100);
 
            //Show Confirmation if need?
            if ( (UserWantToQuit=TRUE) and (Diag.Visible=FALSE) ) then
            begin
                Diag.Show();
                UserWantToQuit:=FALSE;
                Application.ProcessMessages;
            end;
            //CheckIf User click No
            if Diag.ModalResult=ID_No then
            begin
                Diag.ModalResult:=0;
                Diag.Hide;
                Application.ProcessMessages;
            end;
            //CheckIf User Click Yes
            if Diag.ModalResult=ID_YES then
            begin
                //sort de la boucle de traitement
                break;
            end;
            Application.ProcessMessages;
        end;
 
    finally
        Diag.Hide();
        Diag.Release();
    end;
end;

l'idée est de créer une boite de Dialogue rapidement avec CreateMessageDialog() mais de s'en servire comme une fenêtre...
et d'éviter le ShowModal() qui bloque la boucle de traitement.

j'espère le tout conforme

Attendre la réponse d'une boite de dialogue ??

Delphi

Discussions similaires

Partager

Partager