Probleme avec un programme pour systray

J'ai un petit probleme avec le programme Systray

Je peux ajouter ou retirer l'icone , meme modifier le texte mais impossible de detecter les mouvements de la souris dessus !
Y a t il une astuce ?

Salut


Si c'est possible,

Mais, tu vas avoir 30000 Message, je te le conseille pas.

Tu veux faire quoi exactement


@+

??????????????????????????????
DelphiCool

http://delphicool.developpez.com

Dans sont exemple a lui , le programme detecte les deplacements de la souris sur l'icone dans le systray , quand je l'inclus dans mon soft , le programme ne detecte pas ce deplacement sur l'icone !



-------------------------------
Réponse au message :
-------------------------------

Salut


Si c'est possible,

Mais, tu vas avoir 30000 Message, je te le conseille pas.

Tu veux faire quoi exactement


@+

??????????????????????????????
DelphiCool

http://delphicool.developpez.com

Je viens d'essayé ça marche

copie la partie du code qui te pose probleme.

meme : Procedure....(...);


??????????????????????????????
DelphiCool

http://delphicool.developpez.com

Cette partie :
Tant que je suis dans la fenetre du programme ca fonctionne (ca detecte bien les deplacement )mais des que je quitte la fenetre pour cliquer sur l'icone dans le systray il ne detecte plus rien , le programme ne passe meme plus sur la routine de deplacement !
pourtant chez lui ca fonctionne bien !
y a t il un parametre a rajouter dans la form1 pour qu'il detecte les mouvement de la souris au dela de sa fenetre ?

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
var
Pos:TPoint;
begin
//action kan on clique
GetCursorPos(Pos);//positon de la souris;

Case X of
WM_LBUTTONDBLCLK:AfficherCacher1Click(Sender); //Double kilk gauche: affiche
WM_LBUTTONDOWN:; //Bouton gauche pousse
WM_LBUTTONUP:; //Bouton gauche lève
WM_RBUTTONDBLCLK:; //Double kilk droit
WM_RBUTTONDOWN:; //Bouton droit pousse
WM_RBUTTONUP:PopupMenu1.Popup(Pos.X,Pos.Y); //Bouton droite lève: Popup
End;

end;



-------------------------------
Réponse au message :
-------------------------------

Je viens d'essayé ça marche

copie la partie du code qui te pose probleme.

meme : Procedure....(...);


??????????????????????????????
DelphiCool

http://delphicool.developpez.com

essaye

Case X of
WM_LBUTTONDBLCLK:AfficherCacher1Click(Sender); //Double kilk gauche: affiche
WM_LBUTTONDOWN:messagebox(0, 'si tu met pas de code, ya pas de réaction, c''est normal',lol',0); //Bouton gauche pousse
WM_LBUTTONUP:; //Bouton gauche lève
WM_RBUTTONDBLCLK:; //Double kilk droit
WM_RBUTTONDOWN:; //Bouton droit pousse
WM_RBUTTONUP:PopupMenu1.Popup(Pos.X,Pos.Y); //Bouton droite lève: Popup
End;


et fait un click gauche sur l'icone du systray

si tu ne met pas de code c'est normal qu'il ne se passe rien


??????????????????????????????
DelphiCool

http://delphicool.developpez.com

J'ai trouvé ce qui me cause temps de soucis !
c'est le RX Animate Image avec un gif , il faut mettre la fonction Enable sur false pour que ca fonctionne !
Merci quand meme pour ton aide !


-------------------------------
Réponse au message :
-------------------------------

essaye

Case X of
WM_LBUTTONDBLCLK:AfficherCacher1Click(Sender); //Double kilk gauche: affiche
WM_LBUTTONDOWN:messagebox(0, 'si tu met pas de code, ya pas de réaction, c''est normal',lol',0); //Bouton gauche pousse
WM_LBUTTONUP:; //Bouton gauche lève
WM_RBUTTONDBLCLK:; //Double kilk droit
WM_RBUTTONDOWN:; //Bouton droit pousse
WM_RBUTTONUP:PopupMenu1.Popup(Pos.X,Pos.Y); //Bouton droite lève: Popup
End;


et fait un click gauche sur l'icone du systray

si tu ne met pas de code c'est normal qu'il ne se passe rien


??????????????????????????????
DelphiCool

http://delphicool.developpez.com

No comment !


??????????????????????????????
DelphiCool

http://delphicool.developpez.com

c'est cool ce que tu fais , alors ne soie pas faché , de plus tu recuperes une info de taille non ?

Bonne continuation !



-------------------------------
Réponse au message :
-------------------------------

No comment !


??????????????????????????????
DelphiCool

http://delphicool.developpez.com

LOL

??????????????????????????????
DelphiCool

http://delphicool.developpez.com