TPopupMenu/de: what changed

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

Old	New		Line
1	1		Diese Seite erklärt, wie man die [[doc:lcl/menus/tpopupmenu.html\|TPopupMenu]] Komponente verwendet. Auf etwas klicken bedeutet immer ein Linksklick, ein Rechtsklick wird explizit erwähnt.
2	2
3	3		## Beschreibung
4	4
5	5		Das [[doc:lcl/menus/tpopupmenu.html\|TPopupMenu]] ist ein Bedienfeld, was angezeigt wird, wenn mit der rechten Maustaste geklickt wurde.
6	6
7	7		Es ist eine nicht-sichtbare Komponente: das heißt, wenn aus der Komponentenpalette das Symbol ausgewählt und auf dem Formular platziert ist, wird es nicht zur Laufzeit angezeigt. Stattdessen wird eine Menüleiste mit einem von der Menü-Editor definierten Struktur angezeigt.
8	8
9	9		Um den Menü-Editor zu sehen, rechtsklicken Sie auf das Mainmenü-Symbol auf Ihrem Formular.
10	10
11		-	~~<figure>~~
12		-	~~<img src="Comp_Standard_TPopupMenu.png" title="Comp_Standard_TPopupMenu.png" />~~
13		-	~~<figcaption>Comp_Standard_TPopupMenu.png</figcaption>~~
14		-	~~</figure>~~
	11	+	![](/wiki-images/b/b2/Comp_Standard_TPopupMenu.png)
15	12
16	13		## Erstellen eines PopupMenüs
17	14
18	15		Wie Sie einer Komponente auf Ihrem [[TForm/de\|Formular]] ein PopupMenü zuweisen, zeige ich Ihnen an folgendem Beispiel:
19	16
20	17		- Erstellen Sie eine neue [[Form Tutorial/de\|GUI-Anwendung]] und fügen Sie ein [[TImage/de\|TImage]] Ihrem Formular hinzu. Dazu wählen Sie das TImage von Komponentenpalette Additional und klicken auf Ihr Formular. Es wird ein TImage auf Ihrem Formular abgelegt, mit dem Namen Image1.
21	18		- Gehen Sie auf den Objektinspektor (muss auf Image1 stehen) und wählen Sie unter dem Reiter Eigenschaften die Eigenschaft Align. Stellen sie in der daneben befindlichen Combobox das Align alClient ein (das Image1 wird jetzt immer in der Größe dem Formular angepasst).
22	19		- Nun legen Sie analog dem TImage ein TPopupMenu (Komponentenpalette Standard) auf Ihrem Formular ab (möglichst auf das Image1, so weiss man, dass dieses zum Image gehört). Die Komponente PopupMenu1 wird auf dem Formular angezeigt (ein Quadrat mit einer Darstellung eines Dropdown-Menüs und dem Namen der Komponente).
23	20		- Rechtsklicken Sie nun auf PopupMenu1, ein PopupMenü erscheint. Klicken Sie auf den ersten Eintrag Menü-Editor.
24	21		- Der Menü-Editor wird geöffnet und erstellt schon einen Menüpunkt, mit der Beschriftung "New Item1". Wahrscheinlich wollen Sie es ändern, so klicken Sie darauf und gehen zum Objektinspektor.
25	22		- Im Objektinspektor, ändern Sie die Name-Eigenschaft von MenuItem1 zu etwas besser geeignetem. Sagen wir, dies ist das Menü Laden (engl. Load), also ändern Sie den Namen, indem Sie popLoad eingeben und mit Enter bestätigen.
26	23		- Wir wollen eine bessere Beschriftung als "New Item1". Gehen Sie auf die Caption-Eigenschaft, und geben Sie Laden ein und drücken Sie Enter.
27	24		- Jetzt wollen wir noch einen weiteren Menüeintrag erstellen. Gehen Sie zurück zu dem Menü-Editor-Fenster. Klicken Sie mit der rechten Maustaste auf Laden. Ein Popup-Menü erscheint. Klicken Sie auf Neuen Eintrag einfügen (dahinter). Ein neues Menü, genannt New Item2 erscheint. Wie in den letzten beiden Positionen erläutert, ändern Sie im Objektinspektor den Namen zu popStretch und die Bezeichnung (Caption) zu Gestreckt.
28	25		- Wir haben festgestellt, dass wir ein Menüeintrag vergessen haben. Das ist nicht schlimm, sie gehen wieder in den Menü-Editor. Sie können entweder auf Laden rechtsklicken und Neuen Eintrag einfügen (dahinter) wählen oder auf Gestreckt rechtsklicken und Neuen Eintrag einfügen (davor) wählen.
29	26		- Ändern Sie dessen Bezeichnung (Caption) zu Zentriert und Name zu popCenter.
30	27		- Verfahren Sie so weiter mit jedem Menüeintrag, welchen Sie benötigen und schließen Sie am Ende den Menü-Editor.
31	28		- Wenn Sie alle Menüs eingefügt haben, müssen Sie noch festlegen, welcher Komonente dieses zugeordnet werden soll. In unserem Fall soll dies das TImage Image1 sein, was wir am Anfang auf dem Formular platziert haben.
32	29		- Wählen Sie auf dem Formular das Image1 an (einfach anklicken) und gehen im Objektinspektor auf die Eigenschaft PopupMenu. Dort wählen Sie in der daneben liegenden Combobox das PopupMenu1 aus. Jetzt wird das PopupMenu immer erscheinen, wenn Sie zur Laufzeit auf das Image rechtsklicken.
33	30
34	31		Ihr nun so erstelltes Menü wird zur Laufzeit, wenn sie auf das Image1 rechtsklicken, angezeigt und ermöglicht dem Nutzer auf die einzelnen Menüeinträge zu klicken. Allerdings wird bei einem Klick noch nicht wirklich was geschehen. Damit Sie Menüpunkte haben, die etwas tun, müssen Sie jedem Menüpunkt ein [Ereignis](http://de.wikipedia.org/wiki/Ereignis_%28Programmierung%29) (engl. Event) zuweisen, welches dann auf dessen Klicken reagiert.\
35	32		Nachfolgend wird erklärt, wie Sie die Ereignisse von Menüklicks mit Hilfe des Objektinspektors bearbeiten.
36	33
37	34		## Machen, dass das Menü tatsächlich etwas tut
38	35
39	36		- Gehen Sie zurück zu dem Menü-Editor und wählen Sie auf den Laden Menüeintrag mit einem Klick an. Gehen Sie nun auf die Objekt-Inspektor-Fenster, und wählen Sie den Reiter Ereignisse. Die einzigste Ereigniss, die Sie wirklich ändern wollen, ist OnClick, das aktuell noch leer ist. Wenn Sie schon einen vorhandenen [[Event order/de\|Eventhandler]] benutzen wollen, können Sie diesen verwenden und entsprechend auswählen, ansonsten können Sie sich von Lazarus einen erstellen lassen. Auf der rechten Seite ist ein Button mit 3 Punkten. Klicken Sie diesen an, und ein neue Procedure (Ihr neu erstellter Eventhandler) wird im Code erstellt und die Ansicht wechselt zum Quelltexteditor. Ihre Procdure wird in etwa so aussehen:
40	37
41	38		``` pascal
42	39		procedure TForm1.popLoadClick(Sender: TObject);
43	40		begin
44	41
45	42		end;
46	43		```
47	44
48	45		- Zwischen den Anweisungen (Statements) begin und end können Sie nun die Anweisungen für den Menü-Eintrag-Klick Laden einfügen.\
49	46
50		-	\
51	47		In unserem Fall könnten wir ein TOpenDialog-Steuerelement auf die Form einfügen und den Standard-Dialog für unsere Zwecke nutzen:
52	48
53	49		- Legen Sie dafür ein [[TOpenDialog]]-Steuerelement (Komponentenpalette Dialogs) auf Ihrer Form ab (Name OpenDialog1). Nun ändern Sie Ihre Procedure zu:
54	50
55	51		``` pascal
56	52		procedure TForm1.popLoadClick(Sender: TObject);
57	53		begin
58	54		if OpenDialog1.Execute then //nur wenn eine Datei gewählt wurde
59	55		try //versuche
60	56		Image1.Picture.LoadFromFile(OpenDialog1.Filename); //die gewählte Datei nach Image1 zu laden
61	57		except
62	58		end;
63	59		end;
64	60		```
65	61
66	62		- Analog verfahren Sie mit anderen Menüeinträgen und erstellen deren Eventhandler und fügen Sie folgenden Code ein:
67	63
68	64		``` pascal
69	65		procedure TForm1.popStretchClick(Sender: TObject);
70	66		begin
71	67		popStretch.Checked := not popStretch.Checked; //Markierung vom Menüeintrag an- oder abschalten
72	68		Image1.Stretch := popStretch.Checked; //Image1 Gestreckt ja / nein
73	69		end;
74	70
75	71		procedure TForm1.popCenterClick(Sender: TObject);
76	72		begin
77	73		popCenter.Checked := not popCenter.Checked; //Markierung vom Menüeintrag an- oder abschalten
78	74		Image1.Center := popCenter.Checked; //Image1 Zentriert ja / nein
79	75		end;
80	76		```
81	77
82	78		- Jetzt können Sie das Beispiel mit \[F9\] starten, mit einem Rechtsklick das Popupmenü öffnen und auf Laden klicken. Laden Sie nun ein Bild Ihrer Wahl. Wenn Sie ein Bild geladen haben, testen Sie noch die anderen Menüeinträge.
83	79
84	80		## Selber aufpoppen
85	81
86	82		Möglicherweise wollen Sie ein PopupMenü nicht mit einem Rechtsklick auf eine bestimmte Komponente angezeigt haben, sondern bei einem anderen Ereigniss. Das können Sie mit `PopupMenu.PopUp` realisieren.
87	83
88	84		Folgendes Beispiel demonstriert das:
89	85
90	86		- Erstellen Sie eine neue [[Form Tutorial/de\|GUI-Anwendung]] und fügen Sie ein TPopupMenu (PopupMenu1) und ein [[TButton/de\|TButton]] (Button1) Ihrem Formular hinzu.
91	87		- Fügen Sie ein paar Menüeinträge in das PopupMenu1 ein (siehe [[TPopupMenu/de\|Erstellen eines PopupMenüs]]).
92	88		- Generieren Sie den Eventhandler des OnClick-Ereigniss von Button1 und schreiben Sie folgenden Code hinein:
93	89
94	90		``` pascal
95	91		procedure TForm1.Button1Click(Sender: TObject);
96	92		begin
97	93		PopupMenu1.PopUp; //Zeige PopupMenu
98	94		end;
99	95		```
100	96
101	97		- Starten Sie Ihr Programm, das PopupMenü wird jetzt immer durch den Buttonklick aufgerufen.
102	98
103	99		---
104	100		From the Free Pascal wiki, page "TPopupMenu/de", as it stood on 2020-03-01 after a change by Trev, 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