TMouseWheelEvent sur un composant TImage

[Sony]

bjr

je voudrais faire un zoom sur une image de mon appli avec la molette uniquement quand je suis sur mon composant TImage

comment créer un évènement OnMousseWheel sur mon composant TImage?

 

merci d'avance

[_Michel_]

Salut,

 

Reponse courte et facile : Utiliser le OnMouseWheel du composant parent (en général la fenêtre de type TForm). Soit Form1 la TForm contenant le TImage Image1 :

 

void __fastcall TForm1::FormMouseWheel(TObject *Sender, TShiftState Shift, int WheelDelta, TPoint &MousePos, bool &Handled)
{
       POINT p1 = ScreenToClient(MousePos);
       RECT r = Image1->BoundsRect;
       if (PtInRect(&r,p1)) { // OnMouseWheel dans Image1 ?
            // Mettre le code du zoom ici
       } 

}

 

Sinon on peut fabriquer son propre composant et le dériver à partir de TWinControl, de façon à ce qu'il ait nativement l'événement OnMouseWheel.

 

TImage est un descendant de TGraphicControl. Il ne possède pas les attributs d'une fenêtre (descendants de TWinControl). Il ne peut pas traiter ce genre de message sans l'aide de son composant parent.

 

Une autre solution est de dériver une classe depuis TGraphicControl, et d'interférer avec les évenements de l'objet parent pour avoir son propre OnMouseWheel (avec une méthode similaire au code donné).