Delphi - OnContextPopup esemény felhasználása

forráskód letöltése
A Delphi 5-től kezdve minden TControl típusból származó objektumnál, komponensnél megtalálható az OnContextPopup esemény.

Mellékelt példa ennek felhasználási lehetőségeit mutatja be. Az esemény akkor jön létre, ha az adott objektumra jobb gombbal kattint a felhasználó, de az esetlegesen hozzárendelt TPopupMenu menürendszere még nem jelent meg.

Ekkor, ha a paraméterként kapott Handled változónak igaz értéket adunk, akkor nem jelenik meg a hozzárendelt TPopupMenu menüje.

A mellékelt példában azt valósítjuk meg, hogy a Form egy adott területén történik jobb gombbal a kattintás, akkor a PopupMenu2 komponens menürendszerét jelenítjük meg, különben a PopupMenu1 menüjét.

Az esemény MousePos nevű paraméteréből megtudhatjuk az egér kattintás X és Y koordinátáját is.