Messagedlg : version tools

Soyez le premier à donner votre avis sur cette source.

Vue 5 128 fois - Téléchargée 616 fois

Description

C'est un outil destiné aux programmeurs Delphistes. Il sert à générer le code de la fonction MessaDlg. Si comme moi, vous ne vous rappelez pas ou difficilement des options de cette fonction, voici un outil qui pourrait vous intéresser.
En effet il vous suffit de sélectionner l'image, le texte et les boutons via une interface ( voir capture ) conviviale et facile à manipuler.
Dès lors, vous envoyer le code généré vers le presse papier via le bouton "Vers le presse papier" puis dans votre programme Delphi, faites Edition\Coller. Et voila, rapide et efficace. De plus vous pouvez voir son aperçu et il intègre un fichier d'aide complet sur la façon de le manipuler.
Ex de code généré :
MessageDlg('Vous n'avez pas le droit !', mtError, [mbAbort, mbIgnore], 0)

Source / Exemple :


No code : All in the zip

Voyez la capture pour plus d'info

Conclusion :


Il reste encore une option à inclure dans cette outil, renvoyer les valeurs de retour possibles suivant le choix de l'utilisateur. Pour bientôt

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

japee
Messages postés
1715
Date d'inscription
vendredi 27 décembre 2002
Statut
Modérateur
Dernière intervention
2 décembre 2019
2 -
Une petite erreur à la ligne 367 qui empêche de profiter pleinement du programme (la version "presse-papier" de la fonction est fausse).
Il faut remplacer :
Clipboard.SetTextBuf(PChar('MessageDlg(''' + Message_Txt + ''', Type_Image, ' + Buttons_Export + ', 0)'));
par :
Clipboard.SetTextBuf(PChar('MessageDlg(''' + Message_Txt + ''', ' + Type_Image + ', ' + Buttons_Export + ', 0)'));
Sans doute un peu de hâte dans la mise à jour ? (bah, si y'avait un match le soir ;)
Bruto
Messages postés
214
Date d'inscription
jeudi 21 mars 2002
Statut
Membre
Dernière intervention
14 mai 2004
-
Ce serait bien sympa mais ce serait lourd.
En fait, j'ai développé ce prog parce que j'utilise souvent cette fonction et que je ne me souviens pas toujours des possibilités, maintenant avec cela, en 3 secondes, le code de cette fonction est créé sans que j'aille dans l'aide de Delphi.
Il me facilite énormément la tâche. C'est le but pour mais code-source en version tools.
Si ça peut vous aider, tant mieux, moi ça m'aide.

Bonne prog à tous
cs_Nono40
Messages postés
962
Date d'inscription
mercredi 3 avril 2002
Statut
Membre
Dernière intervention
12 septembre 2006
1 -
En fait le #13#10 n'est pas utile, il suffit de mettre #13.

En continuant dans ta logique, tu devrais réaliser un programme qui programme à notre place...

Nono.
Bruto
Messages postés
214
Date d'inscription
jeudi 21 mars 2002
Statut
Membre
Dernière intervention
14 mai 2004
-
Voila le code est bon maintenant les deux bugs sont corrigés, maintenant le caractère ' est pris en compte ainsi que le retour à la ligne. Le prog remplace le carriage return par la chaine #13#10. Ainsi si vous tapez :
abc
d'e'f
vous obtenez :
MessageDlg('abc' + #13#10 + 'd''e''f', Type_Image, [mbOk], 0)
J'ai également modifier la façon d'afficher les images, dans la première version il allait les chercher sur le disque maintenant j'inclus les images dans le programme de façon caché je pense que c'est bon maintenant
Bruto
Messages postés
214
Date d'inscription
jeudi 21 mars 2002
Statut
Membre
Dernière intervention
14 mai 2004
-
Ok je vais voir pour le code, il y a un prob également avec le retour à la ligne je vérifie et je corrige. Merci PowerII ton code va me faciliter la tâche.
Pour les bitmaps que j'incère dans le zip c'est juste pour ceux qui amélioreraient le prog de leur côté de façon à garder l'interface mais c'est vrai cela l'alourdi. Alors ce que je vais faire c'est le juste le projet Delphi et pour les autres qui voudrais continuer, qu'ils me fassent signe.
Je corrige pour cette après-midi ou pour la nuit ( j'ai match ce soir pas le temps )
Encore une fois merci et dites-moi si ce code vous est utile pour que j'envisage d'autres projets de la sorte.
Bonne prog à tous
Bruto le petit belge

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.