Discussion :

[toufou]

voila mon probleme, j'ai mis un composant RxGIFAnimator sur une feuille.
Ce que je voudrais faire c'est que lorsque je passe dessus, il devienne invisible s'il etait visible auparavant et inversement.
J'ai donc mis le code suivant dans l'evenement onmousemove du RxGIFAnimator:

if Form1.RxGIFAnimator1.visible=false then
Form1.RxGIFAnimator1.visible:=true
else
Form1.RxGIFAnimator1.visible:=false;
end;

Le probleme est que si je lance l'appli avec la propriete visible=true au depart, mon truc fonctionne bien, quand je passe dessus le composant deviens invisible, par contre dans le sens inverse il ne reapparait pas!!!
et je vois pas pourquoi.

Si quelqu'un a deja eu le probleme ou connait la solution, merci.

[devyan]

bonjour,

C'est tout à fait normal, ton composant RxGifAnimator ne reçoit plus les messages de la souris puisqu'il n'est plus là (invisible)

Tu dois pouvoir résoudre ton problème en mettant la gestion du cas "invisible" dans le onmousemove du controle contenant le rxgifanimator (ton Tform ou un panel probablement...)
Dans mousemove, il te suffit de vérifier les coordonnées de la souris pour savoir si tu est au dessus du gif.

si tu ne fais pas attention, tu risques d'avoir le gif qui clignote (mousemove qui fait réapparaître juste après mousemove qui fait disparaître, etc.)

[nouanda]

tu peux aussi rajouter un composant tel un Label par dessus, c'est transparent, et tu le dessines de la meme taille que ton gif.

[toufou]

ok, mais je trouve ca bizarre, invisible, pour moi c 'est pas disparu....l'homme invisible il est toujours present

Sinon, je crois que je vais utiliser la deuxieme solution, certainement moins elegante mais tellement plus simple


merci de vos aides


a+
toufou

[devyan]

ok, mais je trouve ca bizarre, invisible, pour moi c 'est pas disparu....l'homme invisible il est toujours present

Sinon, je crois que je vais utiliser la deuxieme solution, certainement moins elegante mais tellement plus simple


merci de vos aides


a+
toufou

C'est un fonctionnement normal et tout à fait logique (à mon avis)
Prenons un exemple :

Lorsque tu as la fenêtre d'un programme à l'écran, si tu réduit cette fenêtre, elle n'est plus visible (elle est présente et si tu affiche les coordonnées de la fenêtre dans un showmessage, tu obtiendra la position qu'elle avait avant de disparaître) et tu ne peux pas cliquer dessus (puisque tu ne la vois pas )

[toufou]

tu as raison, mais ca ne me semblait pas logique...

en tout cas, merci d'avoir repondu

[Gysmo]

tu peux aussi rajouter un composant tel un Label par dessus, c'est transparent, et tu le dessines de la meme taille que ton gif.

Il vaut mieux utiliser les message CM_MOUSEENTER et CM_MOUSELEAVE créés par la VCL.

Supprime le code que tu as mis dans OnMouveMove.

Ajoute dans la partie Private de la fiche les deux déclarations suivantes :
private
{ Déclarations privées }
procedure CMMouseEnter(var Msg: TMessage); message CM_MOUSEENTER;
procedure CMMouseLeave(var Msg: TMessage); message CM_MOUSELEAVE;

Puis ajoute le code de traitement :
procedure TForm1.CMMouseEnter(var Msg: TMessage);
Var Compo:TComponent;
begin
Compo:=TComponent(Msg.LParam);
If(Compo=Image1)Or(Compo=Image2)
Then Begin
Image1.Visible:=False;
Image2.Visible:=True;
End;
end;

procedure TForm1.CMMouseLeave(var Msg: TMessage);
Var Compo:TComponent;
begin
Compo:=TComponent(Msg.LParam);
If(Compo=Image1)Or(Compo=Image2)
Then Begin
Image1.Visible:=True;
Image2.Visible:=False;
End;
end;

Petite explication : le comosant TControl défini une gestion pour les message MouseEnter et MouseLeave de Windows. Le gestionnaire par défaut de TControl ne fait que retourner le message au parent en plaçant dans le paramètre LPARAM l'adresse de l'objet d'origine ayant reçu l'événement.

Mais attention : ceci ne fonctionne malheureusement qui si Form1 est le parent de Image1 et Image2. Les deux images doivent donc être placées sur la fiche et non sur un GroupBox ou autre composant pouvant servir de récepteur.

A essayer.

Bye.