Comment afficher une boîte de message modale du système TopMost avec Delphi
Depuis une application Delphi inactive
gilaxia/Getty Images
Avec les applications de bureau (Windows), un boîte de message (dialogue) est utilisé pour alerter l'utilisateur de l'application qu'une action doit être entreprise, qu'une opération est terminée ou, en général, pour attirer l'attention des utilisateurs.
Dans Delphes , il existe plusieurs façons d'afficher un message à l'utilisateur. Vous pouvez soit utiliser n'importe laquelle des routines d'affichage de message prêtes à l'emploi fournies dans la RTL, comme ShowMessage ou InputBox ; ou vous pouvez créer votre propre boîte de dialogue (pour la réutilisation) : CreateMessageDialog.
Un problème courant avec toutes les boîtes de dialogue ci-dessus est qu'elles exiger que l'application soit active pour être affichée à l'utilisateur . 'Actif' fait référence au moment où votre application a le 'focus d'entrée'.
Si vous voulez vraiment attirer l'attention de l'utilisateur et l'empêcher de faire quoi que ce soit d'autre, vous devez pouvoir afficher une boîte de message supérieure modale du système même lorsque votre application n'est pas active .
Boîte de message la plus élevée du système-modal
Même si cela peut sembler compliqué, en réalité ce n'est vraiment pas le cas.
Étant donné que Delphi peut facilement accéder à la plupart des appels de l'API Windows, l'exécution de la fonction API Windows 'MessageBox' fera l'affaire.
Définie dans l'unité 'windows.pas' -- celle incluse par défaut dans la clause uses de chaque formulaire Delphi, la Messagerie La fonction crée, affiche et exploite une boîte de message. La boîte de message contient un message et un titre définis par l'application, ainsi que toute combinaison d'icônes et de boutons-poussoirs prédéfinis.
Voici comment la MessageBox est déclarée :
|__+_||_+_|
hWnd : HWND ;
lpText,
lpCaption : PAnsiChar;
uType : Cardinal) : entier ;
Le premier paramètre, hwnd , est le handle de la fenêtre propriétaire de la boîte de message à créer. si vous créez une boîte de message alors qu'une boîte de dialogue est présente, utilisez une poignée vers la boîte de dialogue comme hWnd paramètre.
La lpText et lpCaption spécifiez la légende et le texte du message affichés dans la boîte de message.
Le dernier est le uType paramètre et est le plus intéressant. Ce paramètre spécifie le contenu et le comportement de la boîte de dialogue. Ce paramètre peut être une combinaison de divers drapeaux.
Exemple : Boîte d'avertissement modale du système lorsque la date/l'heure du système change
Jetons un coup d'œil à un exemple de création d'une boîte de message supérieure modale du système. Vous allez gérer le message Windows qui est envoyé à toutes les applications en cours d'exécution lorsque le changements de date/heure du système —par exemple en utilisant l'applet 'Date and Time Properties' du Panneau de configuration.
La fonction MessageBox sera appelée comme suit :
|__+_||_+_||__+_|
|__+_|
|__+_|
|__+_|
La pièce la plus importante est le dernier paramètre. Le 'MB_SYSTEMMODAL ou MB_SETFOREGROUND ou MB_TOPMOST' garantit que la boîte de message est modale du système, la plus haute et devient la fenêtre de premier plan.
Voici l'exemple de code complet (TForm nommé 'Form1' défini dans l'unité 'unit1') :
|__+_||_+_||__+_|
|__+_|
|__+_|
|__+_|
|__+_|
|__+_|
|__+_|
|__+_|
|__+_|
|__+_|
|__+_|
|__+_|
|__+_|
|__+_|
|__+_|
|__+_|
|__+_|
|__+_|
|__+_|
|__+_|
|__+_|
|__+_|
|__+_|
|__+_|
|__+_|
|__+_|
|__+_|
Essayez d'exécuter cette application simple. Assurez-vous que l'application est réduite ou au moins qu'une autre application est active. Exécutez l'applet 'Propriétés de date et d'heure' du Panneau de configuration et modifiez l'heure du système. Dès que vous appuyez sur le bouton 'Ok' (sur le applet ) la boîte de message la plus élevée du système modal de votre application inactive s'affiche.