Frames/ru: what changed

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

Old	New		Line
1	1		[[TFrame/ru\|Фреймы]] являются именованными контейнерами для компонентов и очень похожи на [[TForm/ru\|Формы]]. Их уникальная способность заключается в том, что они могут быть встроены в формы или другие фреймы в дизайнере. В виде форм они хранятся в двух файлах: код хранится в файле .pas, а дизайн - в файле .lfm.
2	2
3	3		## Как создать фрейм?
4	4
5	5		Нажмите пункт меню File-\>New... и откройте диалоговое окно, выбрав пункт "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		## Как поместить фрейм на форму или в другой фрейм?
13	10
14	11		Вкладка [[Standard tab/ru\|Standard]] в [[Component Palette/ru\|Палитре компонентов]] имеет специальный компонентный элемент «[[TFrame/ru\|TFrame]]». Когда вы перетаскиваете его на форму или фрейм, IDE предлагает вам выбрать один из фреймов проекта. Вы должны сначала сохранить проект и новый фрейм, потому что только предварительно сохраненные фреймы могут появиться в списке выбора. Фреймы в пакетах пока не реализованы. Но вы можете создавать фреймы в коде даже в пакетах. Вы не можете создавать циклические фреймы - IDE запретит это, т.е. вы не можете поместить FrameA в FrameA, и вы не можете поместить любой фрейм, который содержит FrameA, в FrameA.
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		## Для чего их можно использовать?
22	16
23	17		Они необходимы, когда у вас есть группа компонентов, которые вы хотите повторно использовать в нескольких формах. Группа должна иметь одинаковый набор элементов управления и логику между ними в разных окнах (формах) вашего приложения. Вы можете сгруппировать повторяющиеся элементы управления и логику в один фрейм и использовать этот фрейм в разных местах. Поэтому вам не нужно повторять работу по разметке элементов управления и написанию их логики.
24	18
25	19		Например, у вас есть два списка и кнопки для перемещения элементов между ними. Таким образом, вы можете создать фрейм с двумя списками и необходимыми кнопками, написать логику для перемещения элементов, а затем использовать свой фрейм во всех формах, где это необходимо. Более того, если вы обнаружите ошибку в коде фрейма, вы можете исправить ее один раз в коде фрейма вместо того, чтобы исправлять ее n раз среди всех форм.
26	20
27	21		Фрейм в дизайнере:
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		Фрейм, размещенный на форме:
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		Тот же фрейм помещен в другую форму:
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		## Инициализация частных переменных
49	34
50	35		TFrame не имеет событий `OnCreate` или `OnDestroy`, в которых могут быть инициализированы и освобождены частные переменные. Для этого необходимо [[Override\|переопределить]] [[Constructor/ru\|constructor]] и [[Destructor\|destructor]] по умолчанию.
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		## Пример динамического создания
75	60
76	61		Еще проще. Поскольку компонент TFrame из палитры компонентов не требуется. И вы можете создать приложение типа изменения страницы (например, приложение для смартфона) с сохранением ресурса.
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		## См.также
144	129
145	130		- [[TFrame/ru\|TFrame]]
146	131
147	132		---
148	133		From the Free Pascal wiki, page "Frames/ru", as it stood on 2021-10-19 after a change by Zoltanleo, 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