Trayicon - votre icone dans la barre des taches

Soyez le premier à donner votre avis sur cette source.

Vue 8 469 fois - Téléchargée 1 130 fois

Description

Bonjour !
Vous connaissez sûrement tous le CoolTrayIcon, un bon composant (quoique un peu lourdingue) pour installer facilement une icône dans la barre des tâches, plus précisément dans la zone de notification (près de l'horloge). Eh bien ce composant permet d'en faire autant, et voici ses fonctionnalités :

- Afficher une icône dans la barre des tâches, avec la possibilité de modifier en temps réel le "hint" de l'icône, l'icône elle-même, ainsi que le popup-menu attaché à cette icône.

- Afficher un ballon d'information (comme la bulle de Windows qui vous indique que vous êtes connecté à internet), en précisant seulement un titre, un texte, un type d'icône et un temps d'affichage en secondes.

- Gère de nombreux événements relatifs à l'icône (clic sur l'icône, affichage, suppression, mouvement de la souris au-dessus de l'icône, ...), et au ballon d'information (clic sur le ballon, fermeture du ballon, affichage du ballon, ...).

- Est capable de se remettre dans la zone de notification si la barre des tâches s'est fermée inopinément.

- Petit bonus en prime : propose quelques icônes prédéfinies (celles qu'on trouve dans User32.dll, vous irez y faire un tour ...).

Tout semble stable pour le moment, j'ai inclus une application d'exemple très complète qui utilise toutes les fonctionnalités de mon composant, y compris les évènements et le popup-menu, en passant par le ballon d'aide. Cependant je n'ai pas commenté l'application d'exemple (rien de très compliqué à comprendre). En revanche j'ai commenté le composant, mais je l'ai fait en anglais (enfin de l'anglais basique pour ne pas non plus pénaliser ceux qui ne sont pas très bons en anglais).

Enfin bref, ce composant est pas trop mal, va se loger dans la palette "Système", et est assez ergonomique. Je vous laisse l'exploiter.

|--- Instructions d'installation ---|

1. Télécharger.
2. Ouvrir le répertoire de téléchargement.
3. Ouvrir le dossier Component dans ce répertoire.
4. Ouvrir le paquet TrayIconPkg.
5. Cliquer sur "Installer" une fois dans Delphi.
6. Retourner dans le dossier Component.
7. Revenir en arrière.
8. Lancer TrayIconExample.dpr.
9. Compiler.
10. Et voilà !

|-----------------------------------|

Bon ok, le composant est moins complet que CoolTrayIcon, mais c'est déjà ça (et il est pas trop dur à utiliser !).

Source / Exemple :


// In the zip.

Conclusion :


Tous commentaires, remarques, critiques, conseils, ici.

Codé sous Delphi 6 Personal Edition.

Cordialement, Bacterius !

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

blueperfect
Messages postés
237
Date d'inscription
mardi 13 novembre 2007
Statut
Membre
Dernière intervention
21 novembre 2013
-
Merci, faudra que je pense aux lunettes...
Bacterius
Messages postés
3869
Date d'inscription
samedi 22 décembre 2007
Statut
Membre
Dernière intervention
3 juin 2016
6 -
Effectivement, oui ... je prépare un nouveau pack de composants (avec certains composants déjà vus sur le site), bref un pot pourri de tous mes meilleurs composants. Il ne sera pas prêt avant longtemps ... j'ai du boulot.

Cordialement, Bacterius !
cs_cantador
Messages postés
4716
Date d'inscription
dimanche 26 février 2006
Statut
Modérateur
Dernière intervention
27 mars 2018
9 -
yès ça marche avec la dernière mouture..
Qu'est ce que je disais ah oui, le ballon d'information peut servir d'alerte et donc bien sûr peut déboucher sur tout un tas d'action..
il y aussi le message qui monte et qui descend derrière la barre de taches..etc.
Bacterius
Messages postés
3869
Date d'inscription
samedi 22 décembre 2007
Statut
Membre
Dernière intervention
3 juin 2016
6 -
Le ballon fonctionne toujours Cantador, tu n'as pas fait une fausse manip' ?
Moi je fais ça (avec la version la plus récente du composant, c'est-à-dire celle qui est en ligne) :

// Ajout d'un composant TrayIcon, avec Active := True, IconType := itDefault, Hint := 'My TrayIcon';
// Ajout d'un bouton :

procedure TForm1.Button1Click(Sender: TObject);
begin
TrayIcon1.BalloonHint('Salut !', 'Hahaha', 10, biInfo);
end;

Et mon ballon s'affiche sans problème.
Evidemment si il n'y a pas d'icône, aucun ballon ne s'affichera (j'ai même mis un contrôle d'erreur dans la procédure BalloonHint).

Cordialement, Bacterius !
Bacterius
Messages postés
3869
Date d'inscription
samedi 22 décembre 2007
Statut
Membre
Dernière intervention
3 juin 2016
6 -
Le ballon ne fonctionne plus ? Je n'ai pas remarqué ! Je vais vérifier ça tout de suite.
Sinon, oui quand il y a trop de choses ça devient pénible (regarde CoolTrayIcon, je ne l'utilise plus à cause de ça ... trop d'options inutiles !).
Sinon ... envoyer des e-mails n'est pas le rôle d'une icône :} enfin je pense - celui qui veut faire ça n'a qu'à envoyer la procédure SendEmail (par exemple) pour envoyer son e-mail quand il en a besoin.
Je vérifie le ballon ...

Cordialement, Bacterius !

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.