Affecter une action sur le clic de la molette

Bonjour, lors du clic droit de ma souris mon programme exécute le code suivant

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
void __fastcall TFListeImagesRapport::liste_imageDblClick(TObject *Sender)
{
   if (liste_image->SelCount != 0)
        {       //liste_image->Visible = false;
                int j = liste_image->Selected->Index;
 
                // Si l'image est déjà affectée: on efface
                if (img != NULL)
                        delete img;
 
        img =image2(j);
 
        Image1->Picture->Bitmap = img;
 
        Image1->Parent = this->Parent;
        Image1->Proportional = true;
        Image1->Stretch = false;
        Image1->AutoSize = true;
        Image1->Height = img->Height;
        Image1->Width = img->Width;
        Image1->Picture->Bitmap->Height = img->Height;
        Image1->Picture->Bitmap->Width = img->Width
        ;
     //   Image1->Canvas->StretchDraw(TRect(0,0,Image1->Picture->Bitmap->Height,Image1->Picture->Bitmap->Height,GdesImages.at(j)->GetTampon());
        TVisualisationGdeImg * tmp = new TVisualisationGdeImg(this);
        tmp->ChargerImage(Image1->Picture->Bitmap);
      //  tmp->Height = 500;
     //   tmp->Width = 600;
        tmp->ShowModal();
        tmp->Release();             }
 
}

Cependant je souhaite que ce code soit execute lors du clic de la molette
Quelqu'un aurait une idée pour ce faire ?