Messagedlg avec une checkbox et boutons perso et icône perso
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
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
- Messagedlg avec une checkbox et boutons perso et icône perso
- Boutons à index - Forum ASP.NET
- Messagedlg delphi - Forum Delphi / Pascal
- Icone budget - Forum Visual Basic
- Checkbox html ✓ - Forum PHP
- Messagedlg delphi 7 ✓ - Forum Delphi / Pascal
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.