Discussion :

[josse95]

Bonjour,

Auriez vous une idée pour implémenter un évènement OnMouseOut sur un contrôle TImage ?
J'aimerais que le contrôle ait la main au moment où la souris le quitte. Je pourrais intervenir sur le OnMouseMove du parent mais je préfèrerais une solution où le contrôle se gère tout seul.

J'ai pensé à surdimensionner légèrement l'image en l'entourant d'une bordure transparente de manière à traiter l'évènement OnMouseMove sur cette bordure mais je ne suis pas sûr qu'on active l'évènement si l'on déplace la souris très vite en passant la bordure.

Merci pour votre aide.

[josse95]

En cherchant un peu, j'ai trouvé la fonction SetCaptureControl qui va me permettre, je pense, de solutionner mon problème.

Parfois, les monologues, ça a du bon !

[ac/dc]

ah ca c'est vrai que les monologues peuvent être très utile parfois !

[Gouyon]

Bonjour,

Auriez vous une idée pour implémenter un évènement OnMouseOut sur un contrôle TImage ?
J'aimerais que le contrôle ait la main au moment où la souris le quitte. Je pourrais intervenir sur le OnMouseMove du parent mais je préfèrerais une solution où le contrôle se gère tout seul.

J'aimerais connaitre ta solution car j'ai un problème un peu similaire. En fait dans mon cas c'est lorsque la souris quitte le TImage je souhaite arrêter un Timer.

[josse95]

Voici donc la solution que j'ai implémentée:

Sur l'évènement OnMouseMove du contrôle, j'ajoute le code suivant:

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
16
void __fastcall TMyCtrl::MyCtrlMouseMove(TObject *Sender,TShiftState Shift,int X,int Y)
{
    if (X<0 || Y<0 || X>Width || Y>Height)
    {
        MouseCaptured = false;
        SetCaptureControl(CaptCtrl);
        OnMouseOut(Sender,Shift,X,Y); // génère l'évènement OnMouseOut
    }
    else if (!MouseCaptured)
    {
        CaptCtrl = GetCaptureControl();
        SetCaptureControl(Sender);
        MouseCaptured = true;
    }
    ....
}

MouseCaptured est un booléen initialisé à false (pour moi, c'est dans le constructeur de TMyCtrl, mais tu n'es pas obligé de créer un nouveau composant comme je l'ai fait), et CaptCtrl est de type TControl.

L'idée est de garder la capture des évènements souris même quand celle-ci quitte le contrôle. Dès qu'on s'aperçoit qu'elle l'a effectivement quitté, on déclenche l'évènement OnMouseOut et on rend la capture au contrôle qui l'avait initialement.

En faisant cela, j'ai remarqué que l'évènement OnMouseUp retire la capture. J'ajoute donc également le code suivant sur le OnMouseUp:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
SetCaptureControl(Sender);
MouseCaptured = true;

[Gouyon]

Je teste ça dès que possible et je te dis ce qu'il en est merci de ta réponse