Probleme avec TrayIcon

Bonsoir a tous,

J'essais d'utiliser le composant TrayIcon, mais une chose m'echappe.
si je fais:

Code:

---

1 2 3 4 5 6 7

void __fastcall TForm1::Button2Click(TObject *Sender) { TrayIcon1->Icons=ImageList1; TrayIcon1->Visible=true; TrayIcon1->Minimize(); TrayIcon1->Animate=true; }

---

ca marche, mais si je fais:

Code:

---

1 2 3 4 5 6 7 8

__fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner) { TrayIcon1->Icons=ImageList1; TrayIcon1->Visible=true; TrayIcon1->Minimize(); TrayIcon1->Animate=true; }

---

la fenetre reste ouverte!?

Si tu fait le code dans le constructeur, la fenetre ne peut pas se fermer, car elle n'est pas encore créé, elle est seulement en cours de création, par contre, si tu le fait dans l'événement OnCreate de la form, la cela devrais fonctionner car cet evenement se déclanche juste apres la création de la form.

Salut,

La discussion suivante peut te servir je pense :

http://www.developpez.net/forums/sho...d.php?t=342950

Ca ne marche pas, mais ca m'a donne l'idee de chercher dans les evenement de Form1 et j'ai trouve :D :il faud associe ce code a l'evenement OnActivate:

Code:

---

1 2 3 4 5 6 7 8

void __fastcall TForm1::FormActivate(TObject *Sender) { if(StartMinimized=="ON") { TrayIcon1->Icons=ImageList1; TrayIcon1->Visible=true; TrayIcon1->Minimize(); TrayIcon1->Animate=true;} }

---

La ca marche.Merci pour ta reponse.

Une derniere question a propos de TrayIcon,
comment changer l'icone et surtout comment l'animer (par exemple
que l'icone change de couleur, ou ecrire un chiffre dans l'icone...) ?

Merci pour vos reponse...

Ce n'est pas une vrai animation que gére le TTrayIcon, en fait, tu met toute les image que tu souhaite dans ton ImageList associé à ton TrayIcon, et lorsque tu met la propriété Animate de ton TrayIcon à true, il fait défiler ces images une à une.

Merci pour ces reponses. :D