Discussion :

[fafacpp]

bonjour
J'ai créé un comosant derivé de TGraphicsControl et je voudrai que recuperer l'evenement OnMouseWheel sur ce compo. J'y arrive pour Mousemove, MouseUp, MouseDown mais MouseWheel ne marche pas.
Une petite explication sur le sujet ou un exemple seraient les bienvenues.
D'avance merci.
Fafacpp
A+

[Sunchaser]

Bonjour,

Comment as tu fais pour les autres évènements ?
Pour MouseWheel, as tu essayé de mettre dans la déclaration de la classe de ton composant qqchose comme:

Code :

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

1
2
3
4
5
6
 
void __fastcall OnMouseWheel(TMessage &msg);
 
BEGIN_MESSAGE_MAP				
MESSAGE_HANDLER(WM_MOUSEWHEEL, TMessage, OnMouseWheel)
END_MESSAGE_MAP(TaClasse) //mettre ici le bon nom de classe de ton objet

En espérant t'aider,
@ +

[fafacpp]

Par exemple pour l'evenement OnMouseMove, j'ai créé deux evenement perso pour indiquer si la sourie est sur les boutons ou sur la vue (le compo c'est une vue avec des boutons pour la gerer) comme ceci :
TView.h

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
17
18
19
20
21
 
class PACKAGE TView : public TGraphicControl
{
private:      ...
		TNotifyEvent FOnMouseView; // Sourie sur vue
		TNotifyEvent FOnMouseButt; // Sourie sur boutons
		...
                DYNAMIC void __fastcall MouseMove(Classes::TShiftState Shift, int X, int Y);
protected:
		...
		virtual void __fastcall MouseView();
		virtual void __fastcall MouseButt();
 
public:       ...
 
__published: 
		...
		__property TNotifyEvent OnMouseView = {read=FOnMouseView, write=FOnMouseView};
		__property TNotifyEvent OnMouseButt = {read=FOnMouseButt, write=FOnMouseButt};
 
};

TView.cpp

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
17
18
19
20
21
 
...
void __fastcall TView::MouseView()
{
	 if(FOnMouseView) FOnMouseView(this);
}
 
void __fastcall TView::MouseButt()
{
	 if(FOnMouseButt) FOnMouseButt(this);
}
...
void __fastcall TView::MouseMove(Classes::TShiftState Shift, int X, int Y)
{
 if (Y<=400)  // sourie sur vue
	{
	...
	MouseView(); // evenement MouseView
	}
 else MouseButt(); // evenement MouseButt
}

Tout ceci marche parfaitement.
J'ai donc essayé de faire pareil avec MouseWheel comme ceci :
TView.h

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
17
18
19
 
private:
                ... 
                TNotifyEvent FOnWheelUp; // Roulette +
		TNotifyEvent FOnWheelDown; // Roulette - 
                 ...
                DYNAMIC bool __fastcall DoMouseWheel(Classes::TShiftState Shift, int WheelDelta, const Types::TPoint &MousePos);
                ...
protected:
		...
		virtual void __fastcall WheelUp();
		virtual void __fastcall WheelDown();
 
public:
		...
__published:
		...
		__property TNotifyEvent OnWheelUp = {read=FOnWheelUp, write=FOnWheelUp};
		__property TNotifyEvent OnWheelDown = {read=FOnWheelDown, write=FOnWheelDown};

TView.cpp

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
17
18
19
 
...
void __fastcall TView::WheelUp()
{
	 if(FOnWheelUp) FOnWheelUp(this);
}
void __fastcall TView::WheelDown()
{
	 if(FOnWheelDown) FOnWheelDown(this);
}
...
bool __fastcall TView::DoMouseWheel(Classes::TShiftState Shift, int WheelDelta, const Types::TPoint &MousePos)
{
 if (WheelDelta > 0)
	WheelUp();
 else
   	WheelDown();
 return true;	
}

Mais ca ne marche pas! Les evenements Wheelp et WheelDown ne sont pas declechés quand j'actionne la roulette sur le compo.

[fafacpp]

Pour OnMouseWheel je pense que c'est un evenement caché qu'il faut publier mais je sait pas trop comment faire.
J'ai utilisé DoMouseWheel pour sa similitude avec mes evenements MouseMove, MouseUp et Mousedown existants, je pensais pouvoir facilement adapter ca à DoMouseWheel.
Merci pour ta reponse.
A+