Lewy przycisk myszy i PopupMenu

[Michal-S2]

Jeśli połączę jakiś komponent z PopupMenu to po naciśnięciu prawego przycisku myszy otwiera się menu. Jak zrobić żeby zamiast prawego przycisku trzeba było naciskać lewy?

[Cyfrowy Baron]

Trzeba to realizować za pomocą kodu, ale jeżeli chcesz żeby popup pojawiał się tylko po kliknięciu lewym klawiszem myszy, to musisz ustawić właściwość AutoPopup obiektu PopupMenu na false w ten sposób menu nie będzie wyskakiwać automatycznie po wciśnięciu prawego klawisza myszy.

Kolejna sprawa to nie da się tutaj połączyć PopopMenu z obiektem poprzez jego właściwość PopupMenu, czyli jeżeli we właściwości Formularza np. Form1 PopupMenu wybierzesz swoje PopupMenu1 to połączenie nic nie da w przypadku wywoływania tego menu poprzez kod. W takiej sytuacji trzeba wywoływać menu w zdarzeniu OnMouseUp obiektu z którym chcemy to menu połączyć. Koordynaty pozycji PopupMenu są określane względem pulpitu a nie względem okna programu, dlatego trzeba uwzględnić położenie okna na pulpicie oraz szerokość belki tytułowej okna:

Kod: Zaznacz cały

//---------------------------------------------------------------------------
void __fastcall TForm1::FormMouseUp(TObject *Sender, TMouseButton Button,
      TShiftState Shift, int X, int Y)
{
   __int8 x = GetSystemMetrics(SM_CYSIZE);

   if(Button == mbLeft) PopupMenu1->Popup(Left + X, Top + Y + x);
}
//---------------------------------------------------------------------------


W podanym przykładzie PopupMenu1 zostanie wywołane po kliknięciu lewym klawiszem myszy na Formularzu Form1.

---

Jeżeli nie chcesz powtarzać kodu w zdarzeniu OnMouseUp dla każdego obiektu w którym ma być ono wywoływane, to sugeruję przeczytać artykuł w serwisie Cyfrowy Baron w dziale: teoria rzutowanie typów, przypisanie polimorficzne.

[Michal-S2]

Dzięki, własnie o to mi chodziło