AccueilCodesTutorielsForumsEmploiLivresGuide achatConnexion

  • Delphi CodeS-SourceS
  • RSS CodeS-SourceS
  • CodyxBot, le Bot GTalk & MSN qu'il vous faut !
  • Générez des revenus avec vos codes, scripts et tutoriaux
  • Aide à la navigation du site
begin process at 2009 07 11 05:14:24
Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

MESSAGEBOX MESSAGEDLG EXPERT DE CODE NOUVELLE VERSION (MISE À JOUR)


Information sur la source

Catégorie :Divers Classé sous : messagebox, messagedlg, expert Niveau : Expert Date de création : 17/09/2005 Date de mise à jour : 28/11/2005 23:33:08 Vu / téléchargé: 6 349 / 1 053
Auteur : cirec Ecrire un message privé
Note :
8,88 / 10 - par 8 personnes
8,88 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Commentaire sur cette source (16)
Ajouter un commentaire et/ou une note

Description

Cliquez pour voir la capture en taille normale
Easy MessageBox Creator est un Expert de Code qui permet de générer
des MessageBox standard ou avec icône personnel et on peut même y ajouter un son.
Une MessageDlg avec une CheckBox, quatre bouton entièrement personalisable, choix du bouton qui détient le focus, une ombre autour de la fenêtre et toujours l'Icône perso et le son.

Il utilise 4 sorte de methode
  1 : MessageBox
  2 : MessageBoxIndirect
  3 : ShellAbout
  4 : MessageDlgEx de l'unité DialogEx

Le code généré est automatiquement inséré dans
l'environnement de développement (en mode Expert uniquement) il insert même les unités
manquantes

il vous montre également comment énnumérer les ressources d'une application ou Dll,
l'utilisation des variables d'environnements, des Infos Bulles personnalisées et autres.

avant tout veuillez lire le fichier Installation.doc
tout ce que vous devez savoir y figure
 

Conclusion

           Remerciements :

               Freetai : son code a été le déclencheur, il m'a donné l'idée de
               faire Easy MessageBox Creator.
               InekMan : pour une MessageBox avec Icône Personnel.
            
               Mauricio : pour la Procédure qui permet de dessiner un fond en
               degradé.
            
               Matthias Lamoureux : pour l'insertion du code directement dans l'EDI.
            
               DelphiProg : sans qui je n'aurai jamais trouvé la source de InekMan.
               et tous ceux que j'aurai pu oublier.

 

Fichier Zip

Pour les "Membres Club", vous pouvez télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Télécharger le zip

Historique

21 septembre 2005 12:02:22 :
'LoadFromResourceID' Methode inconue pour Delphi 6,7,? je l'ai donc modifier par LoadIcon(hRes, MakeIntResource(32)) qui fonctionne même sous delphi 4
24 septembre 2005 22:06:34 :
corrections dans le fichier ressource, ajout de code: Ajout : Ajout de l'unité CodeExplorer qui sert à inserer les unités manquantes: le prog détecte si il en a besoin et les ajoutes si elles n'y sont pas. Corrections : dans le fichier ressource MsgBoxCode.txt il y avait encore un Icon.LoadFromResourceID que j'ai changé en LoadIcon(HandleRessource, IconId)
24 septembre 2005 22:47:44 :
Correction dans la description
30 octobre 2005 13:32:28 :
- Ajout de l’unité DialogEx qui permet d’avoir des MessageDlg avec Icône Perso, choix du bouton qui aura le focus, quatre boutons personnalisables, et la possibilité d’ajouter une CheckBox. - Choix des boutons que vous voulez traiter et type de traitement que vous désire appliquer (Case Of, If Then, If Not Then, ou aucun) -Quelques petits changements dans les préférences : oAjout de : Sauvegarder les Modifications, pour éviter l’affichage intempestif de message vous demandant si vous voulez sauvegarder vos changements. Bien sur vous pouvez toujours les sauvegarder en cliquant sur la disquette. oAjout de : Sauvegarder la page Active : pour vous laisser le choix de démarrer l’application sur la dernière page Active ou sur toujours sur la première page - Un point important : Si vous avez déclaré a la fois l’unité Dialogs et l’unité DialogEx Vous devez absolument,(si vous utilisez la fonction MessageDlg) la changer en MessageDlgEx pour que ça fonctionne.
28 novembre 2005 23:33:08 :
Ajouts de mots clés

Commentaires et avis

signaler à un administrateur
Commentaire de cirec le 17/09/2005 12:38:15 administrateur CS

Merci pour votre Note
et n'hesitez pas à me faire part de vos Impressions, Suggestions,
ou Buggs.

signaler à un administrateur
Commentaire de Michel34 le 20/09/2005 18:43:49

J'ai DL ton exemple et je n'ais pa pu le compiler
Sous quelle version de Delphi l'a tu fait ?
J'ai l'erreur suivante :
[Erreur] MBIMain.pas(1006): Identificateur non déclaré : 'LoadFromResourceID'
j'ai regarde de plus pres et TIcon ne possede pas cette fonction mais
TBitmap.

je travaille avec D7 Pro.

Sinon j'ai pu constater un immense travail pour ton programme
(Fenetres et Unités]
A+  Michel

signaler à un administrateur
Commentaire de cirec le 20/09/2005 21:54:10 administrateur CS

Désolé pour le bug
je l'ai fait sous Delphi 2005

signaler à un administrateur
Commentaire de cirec le 20/09/2005 21:58:38 administrateur CS

Michel34 ->
Les Modifs ne devrait pas être trop dur à faire

Merci pour l'apréciation

@+ Cirec

signaler à un administrateur
Commentaire de cirec le 20/09/2005 23:30:59 administrateur CS

Michel34 >
Voici la solution à ton problème de version
Icon.Handle := ExtractIcon(hInstance,'c:\Windows\System32\Shell32.dll', 109);
Ceci Fonctionne à partir de Delphi4 en remplacement de
Icon.LoadFromResourceID

Il faut ajouter l'Unité Shellapi pour Utiliser ExtractIcon

Il y a 3 paramètres à passer :    
1: HINSTANCE hInst, // instance handle
2: LPCTSTR lpszExeFileName, // filename of file with icon
3: UINT nIconIndex // index of icon to extract

1 handle de l'appelant reste à hInstance
2 Exe ou dll contenant des Icônes // PChar
3 N° de l'icône à extraire

Voila @+

signaler à un administrateur
Commentaire de cirec le 21/09/2005 00:09:09 administrateur CS

Une autre Solution (la plus complète)
c'est
Icon.Handle := LoadIcon(hInstance, 'MAINICON')
à la place de
//Icon.LoadFromResourceName(hInstance, 'MAINICON')

et
Icon.Handle := LoadIcon(hInstance, MakeIntResource(2));
à la place de
//Icon.LoadFromResourceID(hInstance, 32);
Voila c'est tout
@+

signaler à un administrateur
Commentaire de Michel34 le 21/09/2005 20:21:00

Merci beaucoups pour tes idées , je ne sais pas
quand je pourrais m'y pencher , mais je te tiens
au courant .

Il n'y a pas de quoi , il faut savoir reconnaitre
le travail de tous,et merci de le partager.

A+ et bon dev .  michel.

signaler à un administrateur
Commentaire de freetai le 25/09/2005 22:28:53

ouahhh!!! je suis bluffé! chapeau bas CIREC! t'as vraiment fait du bon boulot bravo! allez 10/10 et c'est pas volé!

signaler à un administrateur
Commentaire de cirec le 25/09/2005 22:34:57 administrateur CS

Merci Freetai

mais sans toi je n'y aurais même pas pensé.


ps : je reserve encore d'autres modifs
je suis en plein dedans
@ +

signaler à un administrateur
Commentaire de papyvore le 28/09/2005 12:39:46

bonjour
j'ai D7 et je ne trouve pas ICONS.RES j'ai bien essayé de faire
avec Workshop mais j'ai une erreur
[Erreur] RLINK32: Unsupported 16bit resource in file "ICONS.RES"
comment puis je m'y prendre pour tester cette source, qui pour moi profane est tout simplement super
merci

signaler à un administrateur
Commentaire de papyvore le 28/09/2005 15:05:59

re Bonjour
merci pour ce prog, j'ai trouvé la solution
a mon problème
tout marche OK

signaler à un administrateur
Commentaire de ioda19 le 29/09/2005 15:49:55

Bonjour je voudrais savoir s'il est possible d'installer ton Util sur Delphi 6 parce que si j'ouvre "MsgBox.dpr" j'ai les erreurs suivantes
- "Erreur de la lecture de Panel1.BevelKind. La propriété BevelKind n'existe pas"
- "Erreur de la lecture de Panel1.ParentBackGround. La propriété ParentBackGround n'existe pas"
- "Erreur de la lecture de cb_MMSystem.WordWrap. La propriété WordWrap n'existe pas"
- "Classe TXPManifest non trouvée"

et si j'ouvre "MessageBoxExpert.dpk" j'ai l'erreur suivante quand j'essaye de compiler
- "Paquet requis 'vclactnband' non trouvé"

Merci de votre aide
Guillaume

signaler à un administrateur
Commentaire de cirec le 30/09/2005 08:23:08 administrateur CS

Bonjour Ioda19

MessageBoxExpert.dpk ne fonctionne que à partir de Delphi 7.

Mais en mode programme (MsgBox.dpr) tu devrais pouvoir le compiler.
Quand tu recois les differentes erreurs tu cliques sur "Ignorer" et ton Delphi retirera
les propriétées inconues. Tu fais de même pour la classe TXPManifest et normalement
tu devrais pouvoir le compiler.Tiend moi au courant.
@+ et bonne Prog

signaler à un administrateur
Commentaire de Inekman le 30/10/2005 09:01:25

hihi il est très bien fait cet expert, toutes mes félicitations Cirec.

Ca me fait plaisir de voir que la seule source que j'ai posté a aidé quelqu'un sur un autre projet ;-)

Good job.

Inekman.9/10

signaler à un administrateur
Commentaire de cirec le 30/10/2005 13:38:22 administrateur CS

Bonjour Inekman,

Merci pour la note et je suis content que ça te plaise et pour ta source, il faut rendre à césar ce qui lui appartient :-)

@+
Cirec

signaler à un administrateur
Commentaire de cirec le 30/10/2005 13:40:36 administrateur CS

Bonjour à tous,
Voilà c'est fait, la mise à jour avec l'unité DialogEx est faite plus autres voir plus haut :-)

Tenez moi au courent.

@+
Cirec

Ajouter un commentaire

Discussions en rapport avec ce code source dans le forum

MessageBox_HiA [ par DelphiCool ] HelloSi quelqu'un à envie de l'essayerc'est un Soft qui creer le code Delphi pour les MessageBoxIl est Visuel, vous tester votre MessageBox avant de c MessageBox [ par jia2812 ] Salut!...Ça va peut-être vous faire rire mais bon "Qui ne tente rien n'a rien!..." Alors, voilà, si je comprends ps trop mal Delphi car ça ressemble 1 Mettre un message sur plusieurs lignes dans un messagedlg ? [ par Technoman ] Comment fait-on pour passer à la ligne dans un messagedlg ?? Merci. Titre des messagedlg [ par Jos ] Est-il possible de définir le titre des messagedlg?Merci MessageBox [ par ak47 ] salut,Je voudrais ajouter une boite de dialogue a mon programme pour qu'elle demande à l'utitlisateur si il veux vraiment quitter le programme ( il re TextEdit dans un messagebox [ par magicvinni ] Bonjour, J'ai un bouton "renomer" et quand on clique dessus, je voudrais qu'une fenetre type messagebox apparaisse avec un textedit pour entrer le n KYLIX 3 ET MessageDlg [ par barbulille ] salut, voila le pb, quand je teste:if MessageDlg('Mon Message', mtWarning, mbYesNo, O)= mrNo then...le compilatuer me dit que l'identificateur mrNo n' Ini => MessageBox [ par kanigou ] Voila, ce que je voudrais faire c'est mettre une valeur d'un string dans une MessageBox ... Ini := TiniFile.Create('fichier.ini'); v := Probleme de MessageDlg qui disparaissent derriere la form principal sous XP [ par Lassal ] Bonjour bonjour !!Voila comme le titre l'indique, depuis que nous sommes sous XP dans notre boite, on a des problemes avec les MessageDlg qui se cache messagedlg en français [ par s_rodrig ] J'utilise des messagedlg dans mon application. Pour celà j'utitlise la librairie QDialogs qui me permet de choisir le bouton du messagedlg sur lequel


Nos sponsors

Sondage...

CalendriCode

Juillet 2009
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
2728293031  

Consulter la suite du CalendriCode

Appels d'offres

Comparez les prix Nouvelle version


Microsoft Visual Studio Pro 2008 (Windows 32 bits)
Entre 660€ et 749€


Visiter le guide achat

Photothèque Nouveau !

Photo pretty girlsPhoto friends
Photo alphabet langue des sourds 

Visiter la photothèque


Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés
Temps d'éxécution de la page : 0,296 sec

Google Coop CodeS-SourceS Google Coop CodeS-SourceS


Certaines images présentes sur le site (notament certains avatars) sont issues des collections IconShock, donc si vous souhaitez utiliser ces icons vous devez les acheter, ne les copiez pas et ne utilisez pas dans vos sites et applications sans les avoir commandé.