TPopupMenu: what changed

Revision 1 to 2. Removed lines have a minus sign; added lines have a plus sign.

Old	New		Line
1	1		A TPopupMenu ![](/wiki-images/e/e4/Tpopupmenu.png) is a menu panel that pops up on the desktop when the right mouse button is clicked.
2	2
3	3		It is a non-visible component: that is, if the icon is selected from the [[Standard tab]] of the [[Component Palette]] and placed on the form, it will not appear at run-time. Instead, a menu bar with a structure defined by the menu editor will appear.
4	4
5	5		To see the Menu Editor, right-click on the Main Menu icon on your Form.
6	6
7	7		## Creating a PopupMenu
8	8
9	9		In the next passage, I will show you, how to assign a popup menu to a component an your [[TForm\|Form]]:
10	10
11	11		- Create a new [[Form Tutorial\|GUI application]] and insert a [[TImage]] to the form. To do this, choose the TImage from component palette Additional and click on your form. It will put a TImage on your form, with the name Image1.
12	12		- Go to the Object Inspector (which must be on Image1) and under the tab properties, select the Align property. Adjust the alClient align in the adjacent combobox (the Image1 is adjusted in the size of the form).
13	13		- Now you put a TPopupMenu (component tab standard) on your form (if possible on the "Image1", so you know that this is one of the image). The component PopupMenu1is displayed on the form (a square with a representation of a drop down menus and the name of the component).
14	14		- Right click now on "PopupMenu1", a pop-up menu appears. Click the first entry Menu Editor.
15	15		- The Menu Editor window will open with a menu item already created with a caption of New Item1. Probably you want to change it, so click on it and go to the Object Inspector.
16	16		- In Object Inspector, change the Name property from MenuItem1 to something more appropriate. Let's say this is the Load menu, so let's change Name by typing in popLoad and press enter.
17	17		- We want a better caption than New Item1, so go to the Caption property and type in Load and press enter.
18	18		- Now we want to create yet another menu entry. Go back to the Menu Editor window. Rightclick on Load. A pop-up menu will appear. Click on Insert New Item After, and a new menu, called New Item2 will appear. As explained in the last two items, let's change its name to popStretch and the caption to Stretched in the Object Inspector.
19	19		- We noticed that we forgot a menu entry. That's not bad, you go back in the menu editor. You can either right-click on Load and click on Insert New Item (after) or right-click on Stretched and click on Insert New Item (before).
20	20		- Change caption to Centered and name to popCenter.
21	21		- Procedure the menu editor so each menu item which you need and close at the end.
22	22		- When you have added all the menus, you must still set what component it should be associated with. In our case, this should be the TImage Image1, what we have placed at the beginning at the form.
23	23		- Select on the form Image1 and go in the object Inspector on the property PopupMenu. There, select PopupMenu1 in the adjacent combobox.
24	24		- In run-time, the popup menu will always appear if you right click the image.
25	25
26	26		Now, all this will get you is a menu that displays at run time and will allow the user to click on the menus. It won't actually do anything. To have the menu items do something, you have to add [[Event order\|events]] for each menu that is to react to being clicked upon.
27	27
28	28		The following explains how to edit the events of menu clicks using the Object Inspector.
29	29
30	30		## Making the menu actually do something
31	31
32	32		- Go back to the menu editor and select the Load menu item with a click. Now go to the Object Inspector window, and select the tab events. The only event that you really want to change, is OnClick, which is currently empty. If you already have an existing [[Event order\|EventHandler]] to use, can use these and choose accordingly, otherwise you can create one by Lazarus. There is a button with 3 dots on the right side. Click on it, and a new procedure (your newly created eventhandler) is created in the code and the view changes to the source text editor. Your Procdure will look something like this:
33	33
34	34
35	35		``` pascal
36	36		procedure TForm1.popLoadClick(Sender: TObject);
37	37		begin
38	38
39	39		end;
40	40		```
41	41
42	42		- Between the statements begin and end you can now insert the code for the menu entry click Load.
43	43
44	44		In our case we could insert a TOpenDialog control on the form and use the standard dialog for our purposes:
45	45
46	46		- For that, put a [[TOpenDialog]] control (component palette dialog) on your form, with the name OpenDialog1. Now change your procedure to:
47	47
48	48		``` pascal
49	49		procedure TForm1.popLoadClick(Sender: TObject);
50	50		begin
51	51		if OpenDialog1.Execute then //only if a file is selected
52	52		try //try
53	53		Image1.Picture.LoadFromFile(OpenDialog1.Filename); //to load that file
54	54		except
55	55		end;
56	56		end;
57	57		```
58	58
59	59		- Analogous procedures with other menu items and create their event handlers and insert following code:
60	60
61	61		``` pascal
62	62		procedure TForm1.popStretchClick(Sender: TObject);
63	63		begin
64	64		popStretch.Checked := not popStretch.Checked; //mark/checked on/off
65	65		Image1.Stretch := popStretch.Checked; //Image1 streched yes/no
66	66		end;
67	67
68	68		procedure TForm1.popCenterClick(Sender: TObject);
69	69		begin
70	70		popCenter.Checked := not popCenter.Checked; //mark/checked on/off
71	71		Image1.Center := popCenter.Checked; //Image1 center yes/no
72	72		end;
73	73		```
74	74
75		-	- Now you can start the sample with <span class="kbd">F9</span>, open the popup menu with a right click and click on Load. Now, load a picture of your choice. If you have loaded an image, try the other menu entries.
	75	+	- Now you can start the sample with `F9`, open the popup menu with a right click and click on Load. Now, load a picture of your choice. If you have loaded an image, try the other menu entries.
76	76
77	77		## Own popup
78	78
79	79		Maybe you do not want to have displayed a popup menu with a right click on a specific component, but at a different event. That you can realize with `PopupMenu.PopUp`.
80	80
81	81		A simple example:
82	82
83	83		- Create a new [[Form Tutorial\|GUI application]] and add a TPopupMenu PopupMenu1 and a [[TButton]] Button1 to your form.
84	84		- Insert a few menu entries in PopupMenu1 (see [[TPopupMenu\|Creating a PopupMenu]]).
85	85		- Generate the event handler for the OnClick event of Button1 and write the following code:
86	86
87	87		``` pascal
88	88		procedure TForm1.Button1Click(Sender: TObject);
89	89		begin
90	90		PopupMenu1.PopUp; //shop PopupMenu
91	91		end;
92	92		```
93	93
94	94		- Start your program, the popup menu is called by clicking the button.
95	95
96	96		## Reusing a popup menu
97	97
98	98		The same popup menu can be used by multiple controls using PopupComponent to retrieve the caller of the popup.
99	99
100	100		``` pascal
101	101		...
102	102		Uses
103	103		... Clipbrd...
104	104
105	105		procedure TfrmIniPrevMain.pmnuMenuItem1Click(Sender: TObject);
106	106		begin
107	107		if pmnuMenuItem1.PopupComponent.ClassType = TMemo then
108	108		begin
109	109		Clipboard.AsText := TMemo(pmnuClipBoard.PopupComponent).Text;
110	110		end;
111	111		if pmnuClipBoard.PopupComponent.ClassType = TEdit then
112	112		begin
113	113		Clipboard.AsText := TEdit (pmnuClipBoard.PopupComponent).Text;
114	114		end;
115	115		end;
116	116		```
117	117
118	118		## See also
119	119
120	120		- [[doc:lcl/menus/tpopupmenu.html\|TPopupMenu doc]]
121	121		- [[TMainMenu]]
122	122
123	123		---
124	124		From the Free Pascal wiki, page "TPopupMenu", as it stood on 2023-07-31 after a change by Paskal, out of the wiki's dump of 2024-05-26. Copyright stays with the author who wrote it, according to the old wiki's [[Licensing]] page. If you have concerns about this material, [message the admin](/wiki-contact).

Back to history