API :: MESSAGEBOXINDIRECT
japee
Messages postés
1727
Date d'inscription
vendredi 27 décembre 2002
Statut
Modérateur
Dernière intervention
6 novembre 2021
-
27 mai 2004 à 01:12
Inekman Messages postés 291 Date d'inscription dimanche 2 février 2003 Statut Membre Dernière intervention 30 juin 2006 - 8 août 2005 à 03:54
Inekman Messages postés 291 Date d'inscription dimanche 2 février 2003 Statut Membre Dernière intervention 30 juin 2006 - 8 août 2005 à 03:54
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/23179-api-messageboxindirect
https://codes-sources.commentcamarche.net/source/23179-api-messageboxindirect
8 août 2005 à 03:54
8 août 2005 à 02:47
31 mai 2004 à 11:40
...Et si ma solution était LA solution pour utiliser cette fonction ? :-P
30 mai 2004 à 17:48
Enfin pour conclure, si on en revient a la source originale, on n'a rien change, et ca, c'est rare ici...
30 mai 2004 à 13:16
Mais je viens de penser à un truc, il faudrait essayer de nommer l'icone dans le fichier ressource et d'utiliser justement son nom dans la propriété lpszIcon au lieu d'une adresse sur le disque dur....à tester.
30 mai 2004 à 12:04
le parametre LPCSTR lpszIcon; demande une chaine, ou une resource avec MakeIntResource();
mais quel type de chaine, et surtout quelle genre de valeur peut etre utilise ici??
28 mai 2004 à 16:36
Ca m'evitera de partir de zéro et de faire une MsgBox avec une TForm.
Vraiment, merci !
Un petit 10/10 pour completer le message :)
28 mai 2004 à 12:20
Merci pour l'appréciation du code DelphiProg et vous autres qui avez posté un commentaire.
27 mai 2004 à 23:22
Merci Delphiprog !
27 mai 2004 à 23:04
Je suis perplexe car la doc Microsoft et celle de Borland indiquent que la fonction retourne un integer !...
Or, quelque soit le bouton cliqué, la fonction retourne toujours vrai puisque la déclaration dans l'unité Windows.pas est celle-ci :
function MessageBoxIndirect(const MsgBoxParams: TMsgBoxParams): BOOL; stdcall;
Mais, en C, comme tout ce qui est différent de 0 est considéré comme vrai, en transtypant en un cardinal on obtient à nouveau une valeur exploitable.
Si ça n'allège pas vraiment le code, je suis d'accord avec Japee pour affirmer qu'une comparaison avec une des constantes comme mrYes rend le code nettement plus lisible.
C'est mieux comme ça ?
27 mai 2004 à 21:51
Je veux pas cafter, mais je ne crois pas que ton post soit responsable de l'affichage déplorable de cette page (il faudrait au minimum un écran 16/9 pour l'afficher correctement, lol). Mais ça remonte au message de Delphiprog (pardon, j'ai cafté...)
27 mai 2004 à 19:48
--> Pourquoi mon post fait partir en sucette la présentation de cette page ?
27 mai 2004 à 19:40
En effet, Delphiprog, après vérification,
"function MessageBoxIndirect(const MsgBoxParams: TMsgBoxParams): BOOL; stdcall;"
retourne bien un Boolean, d'ailleurs
"MessageBoxIndirect(aBox)"
retourne bien True, quel que soit le bouton cliqué.
Mais je crois comprendre qu'elle renvoie également la valeur de la constante MsgBoxParams de type TMsgBoxParams (variable aBox dans le code d'Inekman), et que dans le cas de
"Cardinal(MessageBoxIndirect(aBox))"
on récupère la valeur de la constante MsgBoxParams.
En espérant n'avoir pas dit une grosse bêtise...
27 mai 2004 à 19:26
Merci pour vos commentaires.
27 mai 2004 à 19:13
Oui oui Japee, on peut par exemple personnaliser le bouton qui aura le focus par défaut en mettant MB_DEFBUTTON1 ou MB_DEFBUTTON2 ou MB_DEFBUTTON3 ou MB_DEFBUTTON4, le numéro indiquant le bouton qui aura le focus.
MB_HELP : pour afficher un bouton d'aide, auquel cas il faudra préciser dans la propriété "dwContextHelpId" l'identifiant de l'aide qui sera appelé.
MB_RIGHT : pour mettre le texte à droite :-p
MB_RTLREADING : pour ceux qui lisent de droite vers la gauche.
J'ai mis à jour la capture pour illustrer ces deux derniers drapeaux.
27 mai 2004 à 18:55
Bien joué ;-)
27 mai 2004 à 13:43
if Cardinal(MessageBoxIndirect(aBox)) = mrYes then...
et bien sûr aussi avec case...of.
On peut donc faire selon son goût (si l'on est "chiffre" ou "lettres"). Pour ma part, je trouve plus facile à mémoriser mrYes ou mrCancel que 6 ou 2.
Sinon le code tient ses promesses. C'est plutôt sympa de pouvoir faire apparaître ses propres icones :)
Et on doit bien arriver à faire d'autre trouvailles...
27 mai 2004 à 12:34
if MessageBoxIndirect(aBox) = IDYes
si tu as le temps, on ne sait jamais. un coup d'oeil dans le MSDN me fait penser que ca peut marcher, mais je ne suis pas sur de moi...
et personnellement, je trouve que ca allege (si ca marche...), simplement parceque je n'aime pas le transtypage en fait. Mais bon, c'est vrai que ca reste une ligne de code, quoi qu'il arrive...
27 mai 2004 à 12:13
Donc on reste sur :
if Cardinal(MessageBoxIndirect(aBox)) = mrYes
27 mai 2004 à 12:10
27 mai 2004 à 10:20
if Cardinal(MessageBoxIndirect(aBox)) = 6
peut etre remplacee par
if MessageBoxIndirect(aBox) = mrYes
ce qui allege et facilite le code.
27 mai 2004 à 01:22
Merci beaucoup.
27 mai 2004 à 01:12
Juste un petit mot pour information.
Les valeurs retournées par MessageDlg, soit:
mrYes, mrNo, mrOk, mrCancel, mrAbort, mrRetry, mrIgnore, mrAll, mrNoToAll, mrYesToAll
correspondent respectivement aux valeurs cardinales:
6, 7, 1, 2, 3, 4, 5, 8, 9, 10.