Discussion :

[nirG95]

Bonjour à tous !

J'ai un petit soucis avec les fenêtres modales :/

J'ai un formulaire principal (Form1) qui lance une tache et qui affiche un formulaire d'attente en modal. Dès que la tache se termine, elle ferme le formulaire d'attente et ouvre un troisième formulaire en modal. Mais le problème c'est que le formulaire d'attente(modal) ne se ferme pas, il reste affichée derrière tant que le troisième formulaire(modal) n'est pas fermé :/

Quelqu'un aurait une solution ?

Merci d'avance.

Cdlt.

nirG95

[Droïde Système7]

Salut,

[...] qui lance une tache [...]

Hé bien suffit de détecter le contraire = la fin de cette tache qui donnera ordre de fermer ta fiche d'attente.

Enfin si j'ai bien saisi...

Je trouve que le mot "formulaire" n'est pas adapté...

@+

[nirG95]

Salut, merci d'avoir répondu si vite.

Biensur que la fermeture se fait a la fin de mon instruction.

Form1 affiche le Form2.showmodal(form d'attente) et lance un thread pour télécharger des données. Dès que le thread fini, je lui demande de fermer le Form2.close et d'ouvrir le Form3.showmodal(Form de résultat).

Mais le Form2 reste affiché derrière le Form3. Mais dès que je ferme le Form3, le Form2 se ferme. Si je passe le Form3 en Show normal, Le Form2 se ferme correctement. Le problème viens que le Form3 est un modal et ne laisse pas le temps et l'autorisation au Form2 de se fermer.

Aurait-il une solution afin de laisser le Form2 de se fermer correctement avant que le Form3 s'ouvre aussi en modal ?

Merci d'avance

Cdlt

[ouiouioui]

Bonjour, si form2 est affiché avec ShowModal faut la fermer avec ModalResult := mrOk; et pas Close

[nirG95]

Bonjour, si form2 est affiché avec ShowModal faut la fermer avec ModalResult := mrOk; et pas Close

Merci Ouiouioui,

Mais j'ai remplacé le Form3.close; par Form3.ModalResult := mrOk; et c'est toujours pareil.

J'avais déjà essayé avec le ModalResult := 1;

Je ne vois pas de solution :'(

Je suis à l'écoute de vos prochaine propositions.

[Andnotor]

Ca manque de code .

Mais comme j'ai compris, Form1 lance Form2 qui lance Form3 (peut importe le thread). Form2 ne peut donc pas se fermer tant que Form3 ne l'est pas (Form3.ShowModal met Form2 en attente).

Form2 et Form3 devraient être gérés depuis Form1 .

1. Form1 crée Form2
2. Form2 lance le thread et Attend (TThread.OnTerminate)
3. Form2.ModalResult := mrOk (ou mrCancel en fonction du résultat du thread)
4. Si mrOk Form1 crée Form3.

[nirG95]

Ok je met la partie conserné de mon code. Cependant je n'ai pas trop suivis ton raisonement :S

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
constructor ThreadFlux.Create(aURL :string);
begin
  inherited Create(FALSE);
  FURL := aURL;
  FreeOnTerminate := TRUE;
end;
 
procedure ThreadFlux.Execute;
begin
  with TIdHttp.Create(nil) do
  try
    try
      HandleRedirects := TRUE;
      FData := Get(FURL);
    except
      MessageDlg('Problème avec la connexion au serveur.', mtError,[mbOk],0)
    end
  finally
    Free;
  end;
end;
 
procedure TForm1.Button6Click(Sender: TObject);
begin
  if nom.Text <> '' then
    begin
      if MessageDlg('Voulez-vous récupérer les informations ?', mtConfirmation,[mbNo,mbYes],0)=mrYes then
        begin
            with ThreadFlux.Create('http://monsite.com')) do
            onterminate := downloadcomplete;
            Form3.ShowModal;
      end;
  end
  else showmessage('Veuillez remplir le champ Nom : !');
end;
 
procedure TForm1.DownloadComplete(Sender: TObject);
begin
  tmp1 := caract(ThreadFlux(Sender).Data);
  Recherche(sender)
end;
 
procedure TForm1.Recherche(Sender: TObject);
begin
     if (condition) then
        begin
             //mon code
 
     form3.close; 
       ou 
     form3.ModalResult := mrOk;
 
     form2.ShowModal;
  end
  else
    begin
      showmessage('Les données demandé n''ont pas pu être trouvés ...');
  end;
end;

Merci de vos réponses

Cdlt.

[Andnotor]

Je n'ai pas le temps de tester pour voir ce qui coince, mais pour moi, Form1 devrait lancer Form3.
Form3 exécute le thread (et non pas Form1) et est elle-même notifiée de la fin du thread avant de renvoyer ModalResult.
Form1 lance ensuite Form2 en fonction du ModalResult.

[nirG95]

Ok, je testerai plutard de faire ça car je suis en australie et il est bientot l'heure d'aller faire dodo !! ^^

Encore merci d'avoir pris du temps pour m'aider.

Cdlt.

Ps : Je close le sujet car je ne pourrai pas revenir avant 2 grosses semaines.