Delphi - détecter si mon application dispose d'une boîte de dialogue modale ouverte

Question

J'ai une application Delphi 2006 qui affiche une boîte de dialogue d'alerte modale lorsqu'une condition d'erreur est détectée. Comme la vérification de la condition d'erreur est effectuée dans un gestionnaire inactif, la boîte de dialogue peut apparaître au-dessus d'une autre boîte de dialogue modale si celle-ci est affichée. Cela peut conduire à une situation confuse pour l'utilisateur où le formulaire principal de l'application ne reçoit pas de focus après la fermeture de la boîte de dialogue d'alerte, car il s'agit d'une autre boîte de dialogue modale masquée. Ce que je voudrais faire est de reporter les popups d'alerte tandis que l'application a ouvert toutes les boîtes de dialogue Modal.

J'ai essayé GetLastActivePopup (MyMainWindow.Handle) mais il semble retourner tout le temps non-zéro.

Answer 1

Voir TApplication.ModalLevel ou les événements TApplication.OnModalBegin et TApplication.OnModalEnd. Voir également this question.

Answer 2

utilisation de la fonction AnyPopup()

A propos GetLastActivePopup(). Il peut renvoyer une valeur identique au paramètre hWnd lorsque

• La fenêtre identifiée par hWnd était la plus récente.
• La fenêtre identifiée par hWnd ne possède aucune fenêtre contextuelle.
• La fenêtre identifiée par hWnd n'est pas une fenêtre de niveau supérieur ou appartient à une autre fenêtre.

Answer 3

Tout essai

if not IsWindowEnabled(MyMainWindow.Handle) then 

Cela permettrait également de prendre soin de situtations quand une boîte de dialogue non Delphi agit modales, comme dans windows.MessageBox(Handle.... ou un dialogue commun est affiché (c'est-à-dire un TOpenDialog).