La forme modale supérieure proche des formes modales imbriquées ferme toutes les autres formes modales?

Question

Lorsque le formulaire A est modal et qu'il affiche une deuxième forme modale B, et que le résultat modal de B est défini et que B se ferme alors, A est également fermé.

Comment cela peut-il être évité?

Answer 1

Ce n'est pas vrai, il doit y avoir un autre problème dans votre code. Le réglage ModalResult affectera uniquement le formulaire actuellement modal. Essayez cet exemple très simple:

• Créer une nouvelle forme

• déposer un bouton sur elle

• Dans le gestionnaire d'événements bouton OnClick ajouter ce code:

  procedure TForm1.Button1Click(Sender: TObject); 
  begin 
      with TForm1.Create(Self) do begin 
      if ShowModal = mrCancel then 
       Self.Color := RGB(Random(256), Random(256), Random(256)); 
      end; 
  end; 
  

Vous remarquerez que chaque pression de bouton crée une nouvelle forme modale, et vous pouvez répéter ceci aussi souvent que vous le souhaitez. En fermant un formulaire, vous définissez ModalResult sur mrCancel et réactivez le formulaire parent. Pour quitter l'application, vous devrez fermer tous les formulaires, un par un, dans l'ordre inverse de la création.