Evènement OnMouseWheel pour un TCustomControl

Version imprimable

16/11/2004, 15h45
blan

Evènement OnMouseWheel pour un TCustomControl

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
16/11/2004, 16h03
colonel95

Salut,

As-tu le champ "keypreview" de ta forme principale (ou courante) à false ?
16/11/2004, 16h15
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 ...
16/11/2004, 16h45
colonel95

Cela ne marche pas quand tu positionne la souris au-dessus de ton controle. Et quand tu sélectionne ton controle ?
16/11/2004, 17h19
blan

Qu'entends-tu par sélectionner ? Je clique dessus et j'utilise la molette mais ça ne marche pas mieux....
16/11/2004, 18h05
colonel95

En sélectionnant, moi ça marche... Pour l'ex j'ai essayé avec un TStringGrid.
17/11/2004, 14h37
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:

ActiveControl=nomTCustomControl

cool et merci beaucoup :wink: