Discussion :

[blan]

Salut à tous,
Je souhaiterai gérer l'évènement OnMouseWheel sur un TCustomControl.
G défini une méthode __fastcall void MouseWheel( TObject* Sender, Classes::TShiftState Shift, int WheelDelta, const Types::TPoint &MousePos, bool &Handled) que j'affecte à l'évènement OnMouseWheel par "OnMouseWheel = MouseWheel" .
Or, lorsque je positionne le curseur de la souris sur le TCustomControl et que je tourne la molette, la méthode MouseWheel n'est pas appelée.
Est ce quelqu'un pourrait me dire ce que j'oublie ou me donner une autre piste à suivre ???
Merki

[colonel95]

Salut,

As-tu le champ "keypreview" de ta forme principale (ou courante) à false ?

[blan]

Même quand je mets keypreview à true, ça ne marche pas.
En fait, quand je fais la même chose avec OnClick, ça marche ...

[colonel95]

Cela ne marche pas quand tu positionne la souris au-dessus de ton controle. Et quand tu sélectionne ton controle ?

[blan]

Qu'entends-tu par sélectionner ? Je clique dessus et j'utilise la molette mais ça ne marche pas mieux....

[colonel95]

En sélectionnant, moi ça marche... Pour l'ex j'ai essayé avec un TStringGrid.

[blan]

YES !!
En fait, t'avais complètement raison mais j'ai pas compris tout de suite. Il fallait que mon TCustomControl soit la fenêtre active. Il suffit donc dans la fenêtre parent (ici un TForm) de noter

Code :

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

ActiveControl=nomTCustomControl

cool et merci beaucoup