Frames/de: what changed

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

Old	New		Line
1	1		[[TFrame\|TFrames]] sind benannte Container für Komponenten und sind [[TForm\|Formularen]] sehr ähnlich. Ihre einzigartige Fähigkeit besteht darin, dass sie in Formulare oder andere Frames eingebettet werden können. Als Formulare werden sie in zwei Dateien gespeichert: Der Code wird in einer .pas-Datei gespeichert, das Design in einer .lfm-Datei.
2	2
3	3		## Wie kann ich ein neues Frame erstellen?
4	4
5	5		Wählen Sie den Menüpunkt Datei und klicken Sie den Unterpunkt Neu... an. Wählen Sie im sich öffnenden Dialog "Frame".
6	6
7		-	~~<figure>~~
8		-	~~<img src="Frame_new.PNG" title="Frame_new.PNG" />~~
9		-	~~<figcaption>Frame_new.PNG</figcaption>~~
10		-	~~</figure>~~
	7	+	![](/wiki-images/6/6d/Frame_new.PNG)
11	8
12	9		## Wie platziere ich ein Frame auf einem Formular oder einem anderen Frame?
13	10
14	11		Die Registerkarte [[Standard tab\|Standard]] der [[Component Palette\|Komponentenpalette]] enthält die Komponente "[[TFrame]]". Wenn Sie sie auf dem Formular oder einem anderen Frame ablegen, werden Sie von der IDE dazu aufgefordert, einen der Projektframes auszuwählen. Frames in Packages können noch nicht angegeben werden, jedoch können Sie auch Frames im Code erstellen, die auch in Packages sein können. Sie können keine Frame Circles erstellen - die IDE wird es verbieten, d. h. Sie können FrameA nicht in FrameA platzieren, ebenso wenig ein Frame, das FrameA in FrameA enthält.
15	12
16		-	~~<figure>~~
17		-	~~<img src="Frame_add.PNG" title="Frame_add.PNG" />~~
18		-	~~<figcaption>Frame_add.PNG</figcaption>~~
19		-	~~</figure>~~
	13	+	![](/wiki-images/3/35/Frame_add.PNG)
20	14
21	15		## Wofür können Frames benutzt werden?
22	16
23	17		Sie werden benötigt, wenn Sie eine Gruppe von Komponenten haben, die Sie in mehreren Formularen wiederverwenden möchten. Die Gruppe sollte in verschiedenen Fenstern (Formularen) Ihrer Anwendung über dieselben Steuerelemente und dieselbe Logik verfügen. Sie können diese sich wiederholenden Komponenten und Logik in einem Frame gruppieren und diesen Frame an verschiedenen Stellen verwenden. Dafür müssen Sie die Arbeit der Anordnung der Komponenten und des Schreibens ihrer Logik nicht wiederholen.
24	18
25	19		Sie haben beispielsweise zwei ListBoxes und Buttons, um Elemente zwischen ihnen zu verschieben. Sie können also ein Frame mit zwei ListBoxes und den notwendigen Buttons erstellen, die Logik für die sich bewegenden Elemente schreiben und Ihr Frame bei Bedarf für alle Formulare verwenden. Wenn Sie außerdem einen Fehler im Frame-Code finden, können Sie ihn einmal im Code beheben, anstatt ihn x-mal in allen Formularen zu beheben.
26	20
27	21		Ein Frame im Designer:
28	22
29		-	~~<figure>~~
30		-	~~<img src="Frame_example.PNG" title="Frame_example.PNG" />~~
31		-	~~<figcaption>Frame_example.PNG</figcaption>~~
32		-	~~</figure>~~
	23	+	![](/wiki-images/1/13/Frame_example.PNG)
33	24
34	25		Das Frame, auf einem Formular platziert:
35	26
36		-	~~<figure>~~
37		-	~~<img src="Frame_embedded.PNG‎" title="Frame_embedded.PNG‎" />~~
38		-	~~<figcaption>Frame_embedded.PNG‎</figcaption>~~
39		-	~~</figure>~~
	27	+	![](/wiki-images/d/d4/Frame_embedded.PNG%E2%80%8E)
40	28
41	29		Das selbe Frame, auf einem anderen Formular platziert:
42	30
43		-	~~<figure>~~
44		-	~~<img src="Frame_embedded2.PNG‎" title="Frame_embedded2.PNG‎" />~~
45		-	~~<figcaption>Frame_embedded2.PNG‎</figcaption>~~
46		-	~~</figure>~~
	31	+	![](/wiki-images/3/36/Frame_embedded2.PNG%E2%80%8E)
47	32
48	33		## Private Variablen initialisieren
49	34
50	35		TFrame verfügt nicht über OnCreate- oder OnDestroy-Ereignisse, in denen private Variablen initialisiert und freigegeben werden können. Überschreiben Sie dazu den Standardkonstruktor und den Destruktor.
51	36
52	37		``` pascal
53	38		TFrame1 = class(TFrame)
54	39		private
55	40		MyObj: TObject;
56	41		public
57	42		constructor Create(TheOwner: TComponent); override;
58	43		destructor Destroy; override;
59	44		end;
60	45
61	46		constructor TFrame1.Create(TheOwner: TComponent);
62	47		begin
63	48		inherited Create(TheOwner);
64	49		MyObj := TObject.Create;
65	50		end;
66	51
67	52		destructor TFrame1.Destroy;
68	53		begin
69	54		MyObj.Free
70	55		inherited Destroy;
71	56		end;
72	57		```
73	58
74	59		## Beispiel für eine dynamische Erstellung
75	60
76	61		Leichter, da eine TFrame-Komponente in der Komponentenpalette nicht erforderlich ist. Sie können außerdem eine Seitenwechsel-Anwendung (wie eine Smartphone-Anwendung) mit sicheren Ressourcen erstellen.
77	62
78	63		``` pascal
79	64		unit Unit1;
80	65
81	66		{$mode objfpc}{$H+}
82	67
83	68		interface
84	69
85	70		uses
86	71		Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;
87	72
88	73		type
89	74
90	75		{ TForm1 }
91	76
92	77		TForm1 = class(TForm)
93	78		Button1: TButton;
94	79		GroupBox1: TGroupBox;
95	80		procedure Button1Click(Sender: TObject);
96	81		procedure FormCreate(Sender: TObject);
97	82		private
98	83		{ private declarations }
99	84		Frame: TFrame;
100	85		public
101	86		{ public declarations }
102	87		end;
103	88
104	89		var
105	90		Form1: TForm1;
106	91
107	92		implementation
108	93		uses
109	94		Unit2{TFrame1}, Unit3{TFrame2}, Unit4{TFrame3};
110	95
111	96		{$R *.lfm}
112	97
113	98		{ TForm1 }
114	99
115	100		procedure TForm1.FormCreate(Sender: TObject);
116	101		begin
117	102		Frame := TFrame1.Create(GroupBox1);
118	103		Frame.Parent := GroupBox1;
119	104		end;
120	105
121	106		procedure TForm1.Button1Click(Sender: TObject);
122	107		begin
123	108		if not Assigned(Frame) then
124	109		begin
125	110		Frame := TFrame1.Create(GroupBox1);
126	111		Frame.Parent := GroupBox1;
127	112		end else if Frame is TFrame1 then begin
128	113		Frame.Free;
129	114		Frame := TFrame2.Create(GroupBox1);
130	115		Frame.Parent := GroupBox1;
131	116		end else if Frame is TFrame2 then begin
132	117		Frame.Free;
133	118		Frame := TFrame3.Create(GroupBox1);
134	119		Frame.Parent := GroupBox1;
135	120		end else begin
136	121		FreeAndNil(Frame);
137	122		end;
138	123		end;
139	124
140	125		end.
141	126		```
142	127
143	128		## Siehe auch
144	129
145	130		- [[TFrame]]
146	131
147	132		---
148	133		From the Free Pascal wiki, page "Frames/de", as it stood on 2020-03-08 after a change by Techno, 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