Drag and Drop sample/ru: what changed

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

Old	New		Line
1	1		Перетаскивание и бросание элементов интерфейса - это обычная операция, которая делает интерфейс удобным для пользователя: пользователь может перетаскивать информацию в элементы управления вместо того, чтобы вводить и т.д.
2	2
3	3		В следующем примере объясняются основы перетаскивания. Для получения подробной информации обратитесь к другим статьям вики и справочной документации.
4	4
5	5		Обратите внимание, поскольку LCL частично совместим с Delphi VCL, некоторые статьи/примеры о перетаскивании Delphi могут также относиться к LCL.
6	6
7	7		## Drag and Drop
8	8
9	9		Несмотря на простоту работы с точки зрения пользователя, неопытному разработчику она может доставить немало хлопот.
10	10
11	11		Для кода операция перетаскивания всегда состоит как минимум из трех шагов:
12	12
13	13		1. Некоторый элемент управления запускает операцию перетаскивания. Он называется Source (Источником)
14	14		2. Пользователь таскает курсор мыши над другими элементами управления или над самим источником. Теперь перетаскиваемый элемент управления должен решить, может ли он принимать перетаскиваемые данные.
15	15		3. Бросание происходит, если элемент управления соглашается принять перетаскиваемые данные. Принимающий элемент управления называется Sender (Приемник).
16	16
17	17		Для упрощения перетаскивания в LCL предусмотрен «автоматический» режим. Это не означает, что LCL выполняет все операции перетаскивания за вас, но он будет обрабатывать низкоуровневое управление объектами перетаскивания (которое не рассматривается в этой статье).
18	18
19	19		## Примеры
20	20
21		-	~~<figure>~~
22		-	~~<img src="DnDTest.PNG" title="DnDTest.PNG" />~~
23		-	~~<figcaption>DnDTest.PNG</figcaption>~~
24		-	~~</figure>~~
	21	+	![](/wiki-images/3/30/DnDTest.PNG)
25	22
26	23		Пример охватывает функцию автоматического перетаскивания между двумя элементами управления (Edit-\>Treeview), а также внутри одного элемента управления (Treeview-\>Treeview).
27	24
28	25		- Запустите новое приложение.
29	26		- Поместите компонент TreeView и Edit в форму.
30	27		- Включите автоматический режим перетаскивания (Automatic drag-and-drop) для TreeView и редактирования в инспекторе объектов:
31	28
32	29		DragMode: dkAutomatic
33	30
34	31		Теперь вы можете запустить приложение и попробовать перетащить что-нибудь. У вас пока не должно ничего работать. Но если вы нажмете левую кнопку мыши в Treeview, вы, вероятно, увидите, что значок курсора изменился, но при отпускании мыши ничего не происходит.
35	32
36	33		### Перетаскивание между элементами управления
37	34
38	35		Сделаем операцию перетаскивания между Edit и TreeView. Там содержимое Edit будет «перетащено» в TreeView и будет создан новый узел дерева.
39	36
40	37		Чтобы инициировать перетаскивание, у элементов управления есть специальный метод: `BeginDrag()`
41	38
42	39		Создайте событие OnMouseDown для Edit:
43	40
44	41		``` pascal
45	42		procedure TForm1.Edit1MouseDown(Sender: TObject; Button: TMouseButton;
46	43		Shift: TShiftState; X, Y: Integer);
47	44		begin
48	45		if Button = mbLeft then {проверяем, была ли нажата левая кнопка мыши}
49	46		Edit1.BeginDrag(true); {начинаем операцию перетаскивания}
50	47		end;
51	48		```
52	49
53	50		Если вы запустите приложение прямо сейчас и попытаетесь перетащить его, вы заметите, что Edit запускает операцию, но по-прежнему ничего не происходит, когда вы пытаетесь тащить элемент к TreeView.
54	51
55	52		Это потому, что TreeView не принимает данные. Ни один из элементов управления не принимает данные по умолчанию, поэтому вам всегда нужно предоставлять соответствующий обработчик событий.
56	53
57	54		Создайте код в событии TreeView.OnDragOver:
58	55
59	56		``` pascal
60	57		procedure TForm1.TreeView1DragOver(Sender, Source: TObject; X, Y: Integer;
61	58		State: TDragState; var Accept: Boolean);
62	59		begin
63	60		Accept := true;
64	61		end;
65	62		```
66	63
67	64		Конечно, в некоторых случаях TreeView может запретить перетаскивание (если Source или данные не могут быть обработаны), но на данный момент TreeView всегда принимает перетаскивание.
68	65
69	66		Запустите приложение и протестируйте. Теперь все должно быть лучше, хотя при бросании элемента все равно ничего не происходит.
70	67
71	68		Создайте код в событии TreeView.OnDragDrop:
72	69
73	70		``` pascal
74	71		procedure TForm1.TreeView1DragDrop(Sender, Source: TObject; X, Y: Integer);
75	72		var
76	73		tv : TTreeView;
77	74		iNode : TTreeNode;
78	75		begin
79	76		tv := TTreeView(Sender); { Sender - это TreeView, где данные удаляются }
80	77		iNode := tv.GetNodeAt(x,y); { х, y - координаты перетаскивания (относительно Sender) }
81	78		{ поскольку Sender - это TreeView, мы можем оценить }
82	79		{ дерево в координатах X, Y }
83	80
84	81		{ TreeView также может быть Source'ом! Так что мы должны убедиться, }
85	82		{ что этим Source'ом является TEdit, до получения им текста }
86	83
87	84		if Source is TEdit then
88	85		tv.Items.AddChild(iNode, TEdit(Source).Text); {Теперь мы можем добавить новый узел с текстом из Source }
89	86		end;
90	87		```
91	88
92	89		Запускаем и тестируем. Теперь он должен работать. Перетаскивание текста из Edit в TreeView должно создать новый узел.
93	90
94	91		### Перетаскивание внутри элемента управления
95	92
96	93		Sender и Source могут быть одним и тем же элементом управления! Это ни в коем случае не запрещено. Давайте добавим возможность TextView изменять расположение его узлов. Поскольку TextView находится в автоматическом режиме DragMode, вам не нужно начинать перетаскивание с помощью `DragBegin()`. Он запускается автоматически при перемещении мыши с удержанием левой кнопки.
97	94
98	95		Убедитесь, что у вас "Accept:=true;" внутри операции DragOver для источника TreeView.
99	96
100	97		Измените обработчик события DragDrop следующим образом:
101	98
102	99		``` pascal
103	100		procedure TForm1.TreeView1DragDrop(Sender, Source: TObject; X, Y: Integer);
104	101		var
105	102		tv : TTreeView;
106	103		iNode : TTreeNode;
107	104		begin
108	105		tv := TTreeView(Sender); { Sender - это TreeView, где данные удаляются }
109	106		iNode := tv.GetNodeAt(x,y); { х, y - координаты перетаскивания (относительно Sender) }
110	107		{поскольку Sender - это TreeView, мы можем оценить }
111	108		{ дерево в координатах X, Y }
112	109
113	110		{ TreeView также может быть Source'ом! Так что мы должны убедиться, }
114	111		{ что этим Source'ом является TEdit, до получения им текста }
115	112		if Source is TEdit then
116	113		tv.Items.AddChild(iNode, TEdit(Source).Text) {Теперь мы можем добавить новый узел с текстом из Source }
117	114
118	115		else if Source = Sender then begin { бросание элемента интерфейса происходит внутри TreeView }
119	116		if Assigned(tv.Selected) and { проверяем, был ли выбран какой-либо узел }
120	117		(iNode <> tv.Selected) then { и мы переходим к другому узлу }
121	118		begin
122	119		if iNode <> nil then
123	120		tv.Selected.MoveTo(iNode, naAddChild) { завершаем операцию перетаскивания, переместив выбранный узел }
124	121		else
125	122		tv.Selected.MoveTo(iNode, naAdd); { завершаем операцию перетаскивания, переместившись в корень TreeView }
126	123		end;
127	124		end;
128	125		end;
129	126		```
130	127
131	128		Вот и все. Если вы запустите приложение сейчас, у вас должны работать обе функции.
132	129
133	130		- Добавление нового узла путем перетаскивания текста из Edit в TreeView
134	131		- Перетаскивание узлов внутри древовидной структуры
135	132
136	133		## Подсказки
137	134
138	135		- Можете (не можете) ли вы использовать некоторые глобальные данные, чтобы проверить, что сейчас перетаскивается? Используйте для этого не глобальные переменные, а только поля вашего класса формы.
139	136		- Помещайте туда данные при запуске перетаскивания
140	137		- Проверяйте данные во время перетаскивания элемента управления и соответствующим образом изменяйте Accept-флаг элемента .
141	138		- Читайте и используйте данные в событии перетаскивания
142	139
143	140		## Перетаскивание из других приложений
144	141
145	142		Вы можете перетащить/отпустить
146	143
147	144		### Файлы
148	145
149	146		Файлы можно легко бросать и обрабатывать, реализуя событие FormDropFiles после того, как для формы свойство AllowDropFiles задано как `True`:
150	147
151	148		``` pascal
152	149		procedure TForm1.FormDropFiles(Sender: TObject; const FileNames: array of String);
153	150		var FileName : String;
154	151		begin
155	152		for FileName in FileNames do
156	153		begin
157	154		ShowMessage(FileName);
158	155		end;
159	156		end;
160	157		```
161	158
162	159		------------------------------------------------------------------------
163	160
164	161		Прим.перев.: Наиболее наглядно пример реализован [здесь](http://lazplanet.blogspot.com/2013/05/drag-drop-files-lazarus-form.html).
165	162
166	163		------------------------------------------------------------------------
167	164
168	165		### Текст и т.д.
169	166
170	167		Вы можете перетащить, например текст из другого приложения (например, блокнота) в элемент управления в вашем приложении. Способ реализации зависит от платформы.
171	168
172	169		#### Windows
173	170
174	171		Этот код позволяет перетаскивать выделенный текст из других приложений в элемент управления редактированием.
175	172
176	173		``` pascal
177	174		unit Unit1;
178	175
179	176		{$mode objfpc}{$H+}
180	177
181	178		interface
182	179
183	180		uses
184	181		Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
185	182		Windows, ActiveX, ComObj;
186	183
187	184		type
188	185
189	186		{ TForm1 }
190	187
191	188		TForm1 = class(TForm, IDropTarget)
192	189		Memo1: TMemo;
193	190		procedure FormCreate(Sender: TObject);
194	191		procedure FormDestroy(Sender: TObject);
195	192		private
196	193		// IDropTarget
197	194		function DragEnter(const dataObj: IDataObject; grfKeyState: DWORD; pt: TPoint; var dwEffect: DWORD): HResult;StdCall;
198	195		function DragOver(grfKeyState: DWORD; pt: TPoint; var dwEffect: DWORD): HResult;StdCall;
199	196		function DragLeave: HResult;StdCall;
200	197		function Drop(const dataObj: IDataObject; grfKeyState: DWORD; pt: TPoint; var dwEffect: DWORD):HResult;StdCall;
201	198		// IUnknown
202	199		// Ignore referance counting
203	200		function _AddRef: Integer; stdcall;
204	201		function _Release: Integer; stdcall;
205	202		public
206	203		{ public declarations }
207	204		end;
208	205
209	206		var
210	207		Form1: TForm1;
211	208
212	209		implementation
213	210
214	211		{$R *.lfm}
215	212
216	213		{ TForm1 }
217	214
218	215		procedure TForm1.FormCreate(Sender: TObject);
219	216		begin
220	217		OleInitialize(nil);
221	218		OleCheck(RegisterDragDrop(Handle, Self));
222	219		end;
223	220
224	221		procedure TForm1.FormDestroy(Sender: TObject);
225	222		begin
226	223		RevokeDragDrop(Handle);
227	224		OleUninitialize;
228	225		end;
229	226
230	227		function TForm1.DragEnter(const dataObj: IDataObject; grfKeyState: DWORD;
231	228		pt: TPoint; var dwEffect: DWORD): HResult; StdCall;
232	229		begin
233	230		dwEffect := DROPEFFECT_COPY;
234	231		Result := S_OK;
235	232		end;
236	233
237	234		function TForm1.DragOver(grfKeyState: DWORD; pt: TPoint; var dwEffect: DWORD
238	235		): HResult; StdCall;
239	236		begin
240	237		dwEffect := DROPEFFECT_COPY;
241	238		Result := S_OK;
242	239		end;
243	240
244	241		function TForm1.DragLeave: HResult; StdCall;
245	242		begin
246	243		Result := S_OK;
247	244		end;
248	245
249	246		function TForm1._AddRef: Integer; stdcall;
250	247		begin
251	248		Result := 1;
252	249		end;
253	250
254	251		function TForm1._Release: Integer; stdcall;
255	252		begin
256	253		Result := 1;
257	254		end;
258	255
259	256		function TForm1.Drop(const dataObj: IDataObject; grfKeyState: DWORD;
260	257		pt: TPoint; var dwEffect: DWORD): HResult; StdCall;
261	258		var
262	259		aFmtEtc: TFORMATETC;
263	260		aStgMed: TSTGMEDIUM;
264	261		pData: PChar;
265	262		begin
266	263		{Убеждаемся, что рендеринг данных доступен}
267	264		if (dataObj = nil) then
268	265		raise Exception.Create('IDataObject-Указатель недействителен!');
269	266		with aFmtEtc do
270	267		begin
271	268		cfFormat := CF_TEXT;
272	269		ptd := nil;
273	270		dwAspect := DVASPECT_CONTENT;
274	271		lindex := -1;
275	272		tymed := TYMED_HGLOBAL;
276	273		end;
277	274		{Получаем данные}
278	275		OleCheck(dataObj.GetData(aFmtEtc, aStgMed));
279	276		try
280	277		{Заблокируем дескриптор глобальной памяти, чтобы получить указатель на данные}
281	278		pData := GlobalLock(aStgMed.hGlobal);
282	279		{ Заменяем текст }
283	280		Memo1.Text := pData;
284	281		finally
285	282		{Завершаем с указателем}
286	283		GlobalUnlock(aStgMed.hGlobal);
287	284		{Освобождаем память}
288	285		ReleaseStgMedium(aStgMed);
289	286		end;
290	287		Result := S_OK;
291	288		end;
292	289
293	290		end.
294	291		```
295	292
296	293		Источник на форуме: [этот тред](http://forum.lazarus.freepascal.org/index.php/topic,25769.msg156933.html#msg156933)
297	294
298	295		## См. также
299	296
300	297		- [[LCL Drag Drop/ru\|LCL Drag Drop]]
301	298
302	299		---
303	300		From the Free Pascal wiki, page "Drag and Drop sample/ru", as it stood on 2022-01-02 after a change by FTurtle, 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