Bonjour,
Dans mon projet je veux affiché une infobulle dans le systray informant l'utilisateur de l’existence d'une nouvelle mise à jour, j'ai intégré le composant BallonTip et j'ai créer une procédure globale appelé à la fin d'initialisation de la première fenêtre de projet (fenêtre mère MDI) dont le code est le suivant :
L'info bulle est affiché dans le systray en arrière plan (juste un clin d’œil et disparaisse), et lorsque j'enlève le commentaire de l'instruction info, l'infobulle s'affiche correctement et dés qu'on clic sur le bouton OK de message (message de l'instruction info) elle disparaisse.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15 SI jz[1].haveupdate = 1 ALORS MonInfoBulle est une BalloonTip MonInfoBulle.Icône.Bulle = "Nouvelle mise à jour pour le logiciel "+ProjetInfo(piNomProjet) // On affiche une BalloonTip MonInfoBulle.Message.Titre = "Nouvelle mise à jour pour le logiciel "+ProjetInfo(piNomProjet) MonInfoBulle.Message.Texte = "Une nouvelles mise à jour pour le logiciel est disponible" MonInfoBulle.Message.Délai = 2000 MonInfoBulle.Message.Type = blmInfo//Type information // Affiche le message BalloonTipAffiche(MonInfoBulle) //info("Une nouvelles mise à jour pour le logiciel est disponible") FIN FIN
Merci pour vos aides.
Partager