Prawy przycisk myszy

[divii]

Witam,

W jaki sposób moge zaprogramować kliknięcie prawym przyciskiem myszy? Dokładnie chodzi mi o kliknięcie na obiekcie TImage, jednak obsługi takiego zdarzenia nie znalazłem w żadnym obiekcie. Istnieją jedynie zdarzenia OnClick czy OnMouseDown jednak nie odnoszą się one do prawego przycisku myszy.

Pozdrawiam

[Cyfrowy Baron]

Kod: Zaznacz cały

void __fastcall TForm1::Image1MouseUp(TObject *Sender, TMouseButton Button,
     TShiftState Shift, int X, int Y)
{
   if(Button ==  mbRight) //mbLeft, mbMiddle
   {
     ShowMessage("WciÅ›niÄ™to prawy klawisz myszy");
   }
}
//---------------------------------------------------------------------------


[divii]

Super , właśnie o to mi chodziło a nigdzie wcześniej nie mogłem znaleźć takiej informacji.