Utilisation de ControlAtPos

Hello,

Dans un fiche (FMain) j'ai un composant JvPageControl avec 4 onglets. Dans ces onglets j'ai des TGroupBox.

J'aimerais déclencher une action lorsque le curseur de la souris passe au dessus de certains contrôles (activés ou non). Je me suis donc dirigé vers la fonction ControlAtPos, mais cette fonction ne me renvoi que le composant JvPageControl, pas les composants contenus dedans.

Pour tester j'ai créé :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

procedure TFMain.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); var tmpCoord : TPoint; tmpcontrol : TControl; begin tmpCoord.X := X; tmpCoord.Y := Y; tmpcontrol := FMain.ControlatPos(tmpCoord, True, True); If tmpcontrol = nil then begin FMain.Caption := 'Rien...'; exit; end; FMain.Caption := tmpcontrol.Name; end;

---

Une idée pour résoudre ce problème ?

A force de test, de débug, etc... j'ai un peu avancé.

Je me suis aperçu qu'il faut activer la méthode OnMouseMove sur tous les contrôles pour que cet événement soit géré. Le faire sur la fiche principale n'est pas suffisant, l'évènement OnMouseMove étant transmis au controle où se trouve la souris et pas à la fiche.

Existe-t-il un autre moyen ? car je ne peux pas assigner une procédure à tous les composants, surtout que certains n'ont pas d'évènement OnMouseMove.

Ca y'est, j'ai trouvé !!

Si cela intéresse certains, j'intercepte les messages de Windows à l'aide d'un composant TJVAppEvents (composants Jedi VCL) et en utilisant l'évènement OnMessage. On peut faire sans ce composant, mais je ne sais plus utiliser les hooks & cie :oops:

La procédure est exécutée à chaque que le souris est déplacée sur la fiche, quelque soit le composant ou conteneur où elle se trouve.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35

procedure TFMain.JvAppEvents1Message(var Msg: tagMSG; var Handled: Boolean); var tmpControl, tmpParentControl : TControl; begin // Ne traite que les messages WM_MouseMove If Msg.message <> WM_MouseMove then Exit; // Trouve le controle sous le curseur tmpControl := Fmain.ControlAtPos(FMain.ScreenToClient(Mouse.CursorPos), True, True); tmpParentControl := nil; // Boucle pour trouver les controles enfants While (tmpControl is TWinControl) and (tmpParentControl = nil) do // Si ce controle contient des enfants If (TWinControl(tmpControl).ControlCount > 0) then begin // Mémorise le controle parent tmpParentControl := tmpControl; // Retourne l'éventuel controle enfant tmpControl := TWinControl(tmpControl).ControlAtPos(TWinControl(tmpControl).ScreenToClient(Mouse.CursorPos), True, True); // S'il n'y en pas, il faut utiliser le controle parent if tmpControl <> nil then tmpParentControl := nil; end else Break; Application.ProcessMessages; // Si on a retenu un control parent, on l'utilise if tmpParentControl <> nil then tmpControl := tmpParentControl; // Si aucun controle sous la souris, sort de la procédure if tmpControl = nil then Exit; // Traitement à effectuer sur le controle sous la souris FMain.Caption := tmpcontrol.Name; end;

---