Самый простой способ подключить TPopupMenu – воспользоваться свойством PopupMenu. На рис. ниже пример для компонента TImage
Но, к сожалению не у всех компонентов есть это свойство, например, его нет у TForm.
Если у компонента нет свойства Popup, то можно подключить контекстное меню, например так…
|
1 2 3 4 5 6 7 8 9 10 11 12 13 |
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Single); var P:TPointF; begin if Button=TMousebutton.mbRight then begin P:=Form1.ClientToScreen(PointF(X,Y)); PopupMenu1.Popup(P.X,P.Y); end; end; |