Popup menu for a Delphi Firemonkey form
Scott Hollows - 08/Jan/2017
Scott Hollows - 08/Jan/2017
[SHOWTOGROUPS=4,20]
Unlike VCL forms, Delphi FireMonkey forms do not have a PopupMenu property. So how can you show a popup menu when the user clicks the Right Mouse Button ?
You have to code it yourself and its pretty easy to do. The tricky bit is converting the X/Y position from the forms local co-ordinate system to global co-ordinates. Ill show you to do that.
Instructions
2. Create an OnMouseDown event for the form with this code
3. Run the project (F9 Key)
4. Right click on the form.
The popup menu should appear at the mouse location
Convert local co-ordinates to global co-ordinates
Popup menus can be displayed anywhere on the screen, even outside of the form’s display area. As a result, the X/Y position for the popup menu is defined using global coordinates instead of the Forms local co-ordinates.
The above code converts the X and Y arguments from local co-ordinate to global co-ordinates like this:
[/SHOWTOGROUPS]
Unlike VCL forms, Delphi FireMonkey forms do not have a PopupMenu property. So how can you show a popup menu when the user clicks the Right Mouse Button ?
You have to code it yourself and its pretty easy to do. The tricky bit is converting the X/Y position from the forms local co-ordinate system to global co-ordinates. Ill show you to do that.
Instructions
- Create a popup menu on the form
Add menu items to it in the usual way.
I presume you know how to do.
2. Create an OnMouseDown event for the form with this code
| procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Single); var vPoint : TPointF; begin // show popup menu when right mouse button if Button = TMouseButton.mbRight then begin -- convert local XY to global XY vPoint := Self.ClientToScreen(PointF (X,Y)); PopupMenu1.Popup(vPoint.X, vPoint.Y); end; end; |
3. Run the project (F9 Key)
4. Right click on the form.
The popup menu should appear at the mouse location
Convert local co-ordinates to global co-ordinates
Popup menus can be displayed anywhere on the screen, even outside of the form’s display area. As a result, the X/Y position for the popup menu is defined using global coordinates instead of the Forms local co-ordinates.
The above code converts the X and Y arguments from local co-ordinate to global co-ordinates like this:
Код:
vPoint := Self.ClientToScreen(PointF (X,Y));[/SHOWTOGROUPS]
