Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter
Composant dont événement n'est pas publié
Bonjour,
j'utilise un composant de la JVCL (mais en fait ça n'a pas grande importance) et malheureusement les événements onMouseEnter et onMouseleave ne sont pas publiés...
Me voilà bien embêtée... comment est ce que je dois faire pour que mon composant réagisse lorsque la souris passe dessus ???
merci...
Pascale38
Il te faudrait toi même le gérer avec les Message WM_MOUSE_MOVE ... en s'inspirant de composant comme le TSpeedButton (c'est calculé à la main) si c'est un TGraphicControl
Sinon, TrackMouseEvent, si ton Control est un TWinControl, tu utilises son Handle comme valeur de hwndTrack
Lors la souris quittera le TWinControl, cela produira un WM_MOUSEHOVER ou WM_MOUSELEAVE selon ce que tu as demandé à TrackMouseEvent
Cela fonctionne très bien, je l'ai utilisé pour Hint HTML, lorsque la souris ne survole plus ce Hint, cela le ferme la fenêtre automatiquement, en Delphi 6, OnMouseLeave n'existait pas dans une TForm (ce qui existe depuis au moins 2007)
Aide via F1 - FAQ - Guide du développeur Delphi devant un problème - Pensez-y !
Attention Troll Méchant !
"Quand un homme a faim, mieux vaut lui apprendre à pêcher que de lui donner un poisson" Confucius
Mieux vaut se taire et paraître idiot, Que l'ouvrir et de le confirmer !
L'ignorance n'excuse pas la médiocrité !
L'expérience, c'est le nom que chacun donne à ses erreurs. (Oscar Wilde)
Il faut avoir le courage de se tromper et d'apprendre de ses erreurs
Je ne sais pas de quel type est mon composant, c'est un TJvRollOut, je suppose que c'est un TGraphicControl??
Je vais regarder ce TSpeedButton, je trouve des posts sur le sujet dans le forum?
merci,
Pascale38
heu je reviens vers toi :
pourrais tu développer un peu ou me dire où je peux trouver des infos ?en s'inspirant de composant comme le TSpeedButton (c'est calculé à la main) si c'est un TGraphicControl
Parce que là je sèche....
merci !!!
Pascale38
Il semble que TJvRollOut hérite de TJvCustomPanel qui de TWinControl, as-tu regardé TrackMouseEvent pour que Windows produise un WM_MOUSELEAVE qui te permettrait d'appeler qui provoquera un CM_MOUSELEAVE qui lui même provoquera un OnMouseLeave ?
En théorie, le TWinControl gère lui TrackMouseEvent dans sa WndProc, si tu as une version récente, tu n'as qu'a publier !
Pense que la JVCL est compatible avec plusieurs versions de Delphi (il faudrait jouer avec des directives en fonction de la version de Delphi qui supporte ou pas OnMouseLeave)
As-tu juste essayé de publier OnMouseLeave et OnMouseEnter dans une classe héritée de TJvRollOut pour voir ce que cela donnait ?
Aide via F1 - FAQ - Guide du développeur Delphi devant un problème - Pensez-y !
Attention Troll Méchant !
"Quand un homme a faim, mieux vaut lui apprendre à pêcher que de lui donner un poisson" Confucius
Mieux vaut se taire et paraître idiot, Que l'ouvrir et de le confirmer !
L'ignorance n'excuse pas la médiocrité !
L'expérience, c'est le nom que chacun donne à ses erreurs. (Oscar Wilde)
Il faut avoir le courage de se tromper et d'apprendre de ses erreurs
Répondre avec citation
Partager