Messagedlg avec une checkbox et boutons perso et icône perso

Soyez le premier à donner votre avis sur cette source.

Vue 8 977 fois - Téléchargée 1 096 fois

Description

En réponse à des questions posées

Afficher une MessageDlg avec une CheckBox

et je n'ai pas pu résister à ajouter d'autres Options...

- Choix du Bouton par défaut
- Choix d?une Icône autre que les quatre habituels
- Choix de quatre boutons personnalisables [mbCust1..mbCust4]
- Et pour finir une ombre autour de la boite (XP uniquement)

Bien sûr vous pouvez combiner les boutons d?origine avec les Perso

Ex de boite classique:
MessageDlgEx('Une Boite simple', mtConfirmation, [mbOk, mbYes, mbNo], 0)

Ex de boite avec choix du bouton par défaut:
MessageDlgEx('Une Boite simple', mtConfirmation, [mbOk, mbYes, mbNo], 0, mbNo)

Ex de boite avec choix du bouton par défaut et Icône Perso:
MessageDlgEx('Une Boite simple', mtPerso, [mbOk, mbYes, mbNo], 0, mbNo, Application.Icon)

Ex de boite avec choix du bouton par défaut et Icône Perso et bouton Perso:
Var BtnPerso : PCustBtnText;
New(BtnPerso) ;
BtnPerso [mbCust1] := 'Hello';
BtnPerso [mbCust4] := 'ça Gaz ?';
MessageDlgEx('Une Boite simple', mtPerso, [mbOk, mbYes, mbNo, mbCust1, mbCust4], 0, mbNo, Application.Icon, BtnPerso)

La gestion des Boutons se fait comme toujours (mrOk, mrYes,mrCust1,mrCust4)

Ex de Boite Complète :
Var db : TMsgDlgParams;
Rslt : Integer; // Utile pour récupérer la touche presser et la CheckBox
begin
With db Do
Begin
CheckBox := True;
// Si vous ne mettez pas de texte il en a un par défaut
BoxCaption := 'Ne plus me montrer cette Boite si non je me fâche';
StrRessource := 'c:\Windows\System32\Shell32.dll';
lpszText := 'Si vous aimez cette Boite dites le moi ';
// Le titre de la boite ne s?affiche qu?en Mode mtPerso
lpszCaption := 'Une Boite Perso';
DlgType := mtPerso;
DlgBtn := [mbYes, mbNo, mbCust1, mbCust2, mbCust3, mbCust4];
DefaultBtn := mbCust2;
IconNbr := 19;
dwContextHelpId := 0;
CustBtnText[mbCust1] := '&Bonjour';
CustBtnText[mbCust2] := '&Amis Delphiste';
CustBtnText[mbCust3] := 'Exemple';
CustBtnText[mbCust4] := 'de Boite &Perso';

End;
Rslt := MsgDlgBox(db);

Rslt contient dans la partie basse (LoWord(Rslt)) la touche presser
Et dans la partie haute (HiWord(Reslt)) sous forme d?entier (0 où 1, Faux où Vrai) la CheckBox

Le point Noir, bah vi il y en a un, si vous utilisez MessageDlg dans votre Code il Faudra le
Remplacer par MessageDlgEx si non ça ne marche pas :( 

Voilà j?espère que ça va vous plaire.
Il y a certainement encore des améliorations à apporter.
Donnez moi vos impressions, remarques, suggestions et autres

Le reste est dans le Zip avec un petit prog pour Exemple

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Messages postés
3818
Date d'inscription
vendredi 23 juillet 2004
Statut
Modérateur
Dernière intervention
18 septembre 2020
34
oui tu te prives de l'ombre c'est tout ;)
Messages postés
460
Date d'inscription
dimanche 5 décembre 2004
Statut
Membre
Dernière intervention
6 avril 2009
2
Salut, comment va ?

J'avais déjà neutraliser ceci

{if CheckWin32Version(5, 1) then
WindowClass.Style := (WindowClass.Style Or
CS_DROPSHADOW); }

Et cela fonctionne.

Très très bien.

@+,

Cincap
Messages postés
3818
Date d'inscription
vendredi 23 juillet 2004
Statut
Modérateur
Dernière intervention
18 septembre 2020
34
Bon faudrait peut être penser à changer de version de Delphi !!!

J'en suis à Delphi2009 ... alors produire un code compatible avec les anciennes versions devient de plus en plus difficile surtout à partir de D6 et en dessous. Je ne dispose pas de toutes les versions de Delphi ;)

Je rappel au passage qu'un TurboDelphi 2006 (Gratuit) existe

J'ai plus de D6 donc essaye avec ceci:

function CheckWin32Version(AMajor: Integer; AMinor: Integer = 0): Boolean;
begin
Result := (AMajor < Win32MajorVersion) or
((AMajor = Win32MajorVersion) and
(AMinor <= Win32MinorVersion));
end;

et:
const
CS_DROPSHADOW = $00020000;
Messages postés
460
Date d'inscription
dimanche 5 décembre 2004
Statut
Membre
Dernière intervention
6 avril 2009
2
Bonjour à toutes et à tous,

@ Cirec, Peut être tard,avec D6, j'ai un bug avec ta démo.

Erreur :
*****
[Erreur] DialogEx.pas(537): Identificateur non déclaré : 'CheckWin32Version'
[Erreur] DialogEx.pas(539): Identificateur non déclaré : 'CS_DROPSHADOW'
[Avertissement] DialogEx.pas(539): Combinaison de types signés et non signés -

opérandes agrandis
[Erreur fatale] Unit1.pas(7): Impossible de compiler l'unité utilisée 'DialogEx.pas'
*****

@+,

Cincap
Messages postés
13
Date d'inscription
lundi 13 juin 2005
Statut
Membre
Dernière intervention
11 mai 2006

Salut,

je suis à la bourre pour dire merci, mais comme ce petit programme fait exactement ce que je veux, c'est à dire une boîte de dialogue avec texte des boutons paramétrables et case à cocher, et bien un grand merci.
Afficher les 12 commentaires

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.