Drag and Drop/de: what changed

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

Old	New		Line
1		-	\
2	1		Zurück zu den [[Additional information/de\|Zusätzlichen Informationen]].\
3		-	\
4		-	\
	2	+
5	3		Dieser Artikel beschäftigt sich mit der Windows- und der Linuxprogrammierung.\
6	4		Dieser Artikel bezieht sich auf Lazarus Version 1.0.10 und höher.\
7		-	\
	5	+
8	6		=Grundlegendes zu Drag and Drop= Drag and Drop ist eine Methode zur Bedienung grafischer Benutzeroberflächen.\
9	7		Bei einem Drag and Drop Vorgang sind immer zwei Objekte beteiligt. Das sendende Objekt und das entgegennehmende Objekt.\
10		-	\
11	8
12	9		# Drag and Drop innerhalb eines Formulars
13	10
14		-	\
15	11		Damit ein Objekt senden kann, benötigt es genau ein Ereignis:\
16	12		* OnMouseDown\
17	13		Damit ein Objekt empfangen kann, benötigt es zwei Ereignise:\
18	14		* OnDragDrop
19	15
20	16		- OnDragOver
21	17
22		-	\
23	18		==Das OnMouseDown-Ereignis des sendenden Objekts== Beispiele wie ein OnMouseDown-Ereignis des sendenden Objektes aussehen kann:\
24	19		===Beispiel für ein Edit===
25	20
26	21		``` pascal
27	22		procedure TForm1.Edit1MouseDown(Sender: TObject; Button: TMouseButton;
28	23		Shift: TShiftState; X, Y: integer);
29	24		begin
30	25		if Button = mbLeft then
31	26		Edit1.BeginDrag(False); // False, damit Drag and Drop erst nach einer Mausbewegung beginnt
32	27		end;
33	28		```
34	29
35		-	\
36	30		===Beispiel für ein Memo===
37	31
38	32		``` pascal
39	33		procedure TForm1.Memo1MouseDown(Sender: TObject; Button: TMouseButton;
40	34		Shift: TShiftState; X, Y: Integer);
41	35		begin
42	36		if Button = mbLeft then
43	37		Memo1.BeginDrag(False); // False, damit Drag and Drop erst nach einer Mausbewegung beginnt
44	38		end;
45	39		```
46	40
47		-	\
48	41		==Die Ereignisse OnDragDrop, OnDragOver und EndDrag des empfangenden Objekts==
49	42
50	43		### Beispiel für ein Edit, wenn ein Edit der Sender ist
51	44
52	45		``` pascal
53	46		// Auswerten, ob es sich um den richtigen Sendertyp handelt
54	47		// und nicht, ob es sich um den richtigen Sender handelt
55	48		procedure TForm1.Edit2DragOver(Sender, Source: TObject; X, Y: integer;
56	49		State: TDragState; var Accept: boolean);
57	50		begin
58	51		if (Source is TEdit) then // Fragt den Objekttyp ab
59	52		Accept := True; // Wenn der Objekttyp stimmt ist der Datensatz zu akzeptieren
60	53		end;
61	54
62	55		// Datenübernahme
63	56		procedure TForm1.Edit2DragDrop(Sender, Source: TObject; X, Y: integer);
64	57		begin
65	58		if (Source is TEdit) then // Wenn der Objekttyp stimmt werden die Daten übernommen
66	59		Edit2.Text := TEdit(Source).Text;
67	60		end;
68	61
69	62		// Fehlerauswertung
70	63		procedure TForm1.Edit2EndDrag(Sender, Target: TObject; X, Y: Integer);
71	64		begin
72	65		if (Target = nil) then // Wenn beim Drag and Drop ein Fehlerauftritt
73	66		Showmessage('Bei Drag and Drop ist ein Fehler aufgetreten.');
74	67		end;
75	68		```
76	69
77		-	\
78	70		===Beispiel für eine Listbox, wenn ein Edit der Sender ist===
79	71
80	72		``` pascal
81	73		// Auswerten, ob es sich um den richtigen Sendertyp handelt
82	74		// und nicht, ob es sich um den richtigen Sender handelt
83	75		procedure TForm1.ListBox1DragOver(Sender, Source: TObject; X, Y: integer;
84	76		State: TDragState; var Accept: boolean);
85	77		begin
86	78		if (Source is TEdit) then // Fragt den Objekttyp ab
87	79		Accept := True; // Wenn der Objekttyp stimmt ist der Datensatz zu akzeptieren
88	80		end;
89	81
90	82		// Datenübernahme
91	83		procedure TForm1.ListBox1DragDrop(Sender, Source: TObject; X, Y: integer);
92	84		begin
93	85		if (Source is TEdit) then // Wenn der Objekttyp stimmt werden die Daten übernommen
94	86		Listbox1.Items.Add(TEdit(Source).Text); // Fügt den Text aus dem Edit hinzu
95	87		end;
96	88
97	89		// Fehlerauswertung
98	90		procedure TForm1.ListBox1EndDrag(Sender, Target: TObject; X, Y: integer);
99	91		begin
100	92		if (Target = nil) then // Wenn beim Drag and Drop ein Fehlerauftritt
101	93		ShowMessage('Bei Drag and Drop ist ein Fehler aufgetreten.');
102	94		end;
103	95		```
104	96
105		-	\
106	97		===Beispiel für ein Treeview, wenn ein Edit der Sender ist===
107	98
108	99		``` pascal
109	100		// Auswerten, ob es sich um den richtigen Sendertyp handelt
110	101		// und nicht, ob es sich um den richtigen Sender handelt
111	102		procedure TForm1.TreeView1DragOver(Sender, Source: TObject; X, Y: integer;
112	103		State: TDragState; var Accept: boolean);
113	104		begin
114	105		if (Source is TEdit) then // Fragt den Objekttyp ab
115	106		Accept := True; // Wenn der Objekttyp stimmt ist der Datensatz zu akzeptieren
116	107		end;
117	108
118	109		// Datenübernahme
119	110		procedure TForm1.TreeView1DragDrop(Sender, Source: TObject; X, Y: integer);
120	111		var
121	112		tv: TTreeView;
122	113		Knoten: TTreeNode;
123	114
124	115		begin
125	116
126	117		tv := TTreeView(Sender); // Sender is TreeView where the data is being dropped
127	118		Knoten := tv.GetNodeAt(x, y); // x,y sind die Drop Koordinaten im Baum des Treeview
128	119
129	120		// Wenn der Objekttyp stimmt werden die Daten übernommen
130	121		if Source is TEdit then
131	122		// nun werden die Daten dem Knoten hizugefügt
132	123		tv.Items.AddChild(Knoten, TEdit(Source).Text);
133	124
134	125		end;
135	126
136	127		// Fehlerauswertung
137	128		procedure TForm1.TreeView1EndDrag(Sender, Target: TObject; X, Y: integer);
138	129		begin
139	130		if (Target = nil) then // Wenn beim Drag and Drop ein Fehlerauftritt
140	131		ShowMessage('Bei Drag and Drop ist ein Fehler aufgetreten.');
141	132		end;
142	133		```
143	134
144		-	\
145		-
146	135		# Drag and Drop vom Dateimanager auf das Formular
147	136
148	137		Vorab:\
149	138		Fast jedes Betriebsystem bringt einen oder mehrere Dateimanager mit, das heisst, dass das Funktionieren von Drag and Drop nicht mit jedem Dateimanager garantiert werden kann.\
150	139		Dateimanager sind z. B.:\
151	140		Explorer (Betriebsystem Windows), Nautilus (Betriebssystem Ubuntu), Dolphin, Konqueror, usw.\
152		-	\
	141	+
153	142		Vorgehensweise:\
154		-	~~Zu erst muss im Objektinspektor des Formulars im Register Eigenschaft die Eigenschaft <b>AllowDropFiles</b> auf True gesetzt werden.\~~
155		-	\
	143	+	Zu erst muss im Objektinspektor des Formulars im Register Eigenschaft die Eigenschaft AllowDropFiles auf True gesetzt werden.\
	144	+
156	145		![](/wiki-images/3/3f/DragDropEigenschaften.jpg)\
157		-	\
158		-	~~Dann wird im Objektinspektor des Formulars im Register Ereignisse das Ereignis <b>OnDropFiles</b> ausgewählt.\~~
159		-	\
	146	+
	147	+	Dann wird im Objektinspektor des Formulars im Register Ereignisse das Ereignis OnDropFiles ausgewählt.\
	148	+
160	149		![](/wiki-images/f/f1/DragDropEreignisse.jpg)\
161		-	\
162		-	~~Um zum Beispiel die Dateien in einer ListBox an zuzeigen, wird für das Ereignis <b>OnDropFiles</b> folgender Code benötigt:\~~
	150	+
	151	+	Um zum Beispiel die Dateien in einer ListBox an zuzeigen, wird für das Ereignis OnDropFiles folgender Code benötigt:\
163	152		===Minimalbeispiel zu OnDropFiles===
164	153
165	154		``` pascal
166	155		procedure TForm1.FormDropFiles(Sender: TObject; const FileNames: array of string);
167	156		var
168	157		intI: integer = 0;
169	158		begin
170	159
171	160		for intI := 0 to high(filenames) do
172	161		listbox1.Items.Add(filenames[intI]);
173	162
174	163		end;
175	164		```
176	165
177		-	\
178		-
179	166		## Ein Beispiel dass Probleme bei OnDropFiles erläutert
180	167
181		-	\
182	168		Dieses Beispiel beschäftigt sich mit Besonderheiten editierbarer Felder und der Auswertung des Drop.\
183	169		Dieses Beispiel beschäftigt sich auch mit Besonderheiten der Linuxprogrammierung.\
184		-	\
	170	+
185	171		===Probleme=== Beim Ziehen auf ein Formular entstehen folgende Effekte:
186	172
187	173		1. Der Drop kann auf das Formular selbst oder ein Komponente auf dem Formular erfolgen, wo spielt keine Rolle, aber es wird kein Zielpunkt übergeben
188	174		2. Editierbare Felder fügen den erhaltenen Text automatisch ein! Alle Anderen nicht.
189		-	~~3. Zusätzlich fügen diese Felder automatisch eine Kennung hinzu z.B. <b>file:</b> oder <b>url:</b>~~
190		-	~~4. <b>Das Ereignis wird vom Formular in jedem Fall verarbeitet</b>, es ist nicht möglich den Drop durch das Editierfeld zu verweigern, abzubrechen oder umzuleiten~~
	175	+	3. Zusätzlich fügen diese Felder automatisch eine Kennung hinzu z.B. file: oder url:
	176	+	4. Das Ereignis wird vom Formular in jedem Fall verarbeitet, es ist nicht möglich den Drop durch das Editierfeld zu verweigern, abzubrechen oder umzuleiten
191	177		5. Wegen 2. wird u.U. doppelt eingefügt, wenn nicht geprüft wird, wo der Drop erfolgt
192	178
193		-	\
194		-	<b>Hinweis:</b> Um 'einfach' ein <b>Drop-Ereignis auf ein editierbares Element zu verhindern</b>, kann es auf <b>Readonly</b> gesetzt werden. Der Cursor zeigt dann, dass das Feld keinen Drop annimmt. Eine bessere Lösung kann ich derzeit nicht anbieten.
	179	+	Hinweis: Um 'einfach' ein Drop-Ereignis auf ein editierbares Element zu verhindern, kann es auf Readonly gesetzt werden. Der Cursor zeigt dann, dass das Feld keinen Drop annimmt. Eine bessere Lösung kann ich derzeit nicht anbieten.
195	180
196	181		### Aufbau des Beispiels
197	182
198	183		Das Beispiel besteht aus zwei ListView-Elementen, da diese auf den FileDrop nicht weiter reagieren, es könnten aber auch andere sein (sollten nur keine editierbaren sein). Diese Element haben sonst keine Aufgaben. Ein Memo-Element wird zur Ausgabe der Ergebnisse benutzt. Hier kann auch ein reiner Text-Drop<sup>*</sup>) aus einem Editierfeld überprüft werden (markieren und ziehen).\
199	184		<sup>*</sup>) In wie weit meine Desktopumgebung (Debian+KDE4) hier automatismen verwendet die zu einem anderem Verhalten führen als geplant, kann ich bisher nicht nachvollziehen.\
200	185		====Zusätzlich benötigte Units====
201	186
202	187		- baseunix
203	188		- types
204	189
205		-	\
206		-	~~====Benötigt Funktionen für Linux (basierend auf <i>baseunix</i>)==== Mit Linux wird im Prizip (fast) alles als Datei behandelt. Anhand des Pfades ist zunächst nicht erkennbar was dahinter steckt.~~
	190	+	====Benötigt Funktionen für Linux (basierend auf baseunix)==== Mit Linux wird im Prizip (fast) alles als Datei behandelt. Anhand des Pfades ist zunächst nicht erkennbar was dahinter steckt.
207	191
208	192		- Systemdateien: Hier kann ein Problem entstehen wenn ein Lesezugriff z.B. auf einen FIFO gemacht wird, als ob es eine normale Datei wäre: Die Datei hat KEIN ENDE. (In die Falle tappen viele Programme.)
209	193		- LINKs: Gerade SymLinks führen zu einem anderen Verzeichniss, dies kann beim Folgen eines solchen zu einer endlosen Kreisbewegung führen.\
210	194
211		-	\
212		-	~~<b>Anmerkung:</b> Dateien und Verzeichnisse können ein LINK sein. Siehe Unit <b>Baseunix</b>, Beispiel zu <b>S_ISLNK</b> ; Siehe auch Linuxbefehl <b>stat</b>\~~
213		-	\
	195	+	Anmerkung: Dateien und Verzeichnisse können ein LINK sein. Siehe Unit Baseunix, Beispiel zu S_ISLNK ; Siehe auch Linuxbefehl stat\
	196	+
214	197		Die genaue Auswertung was im Dateisystem hinter dem Pfad steckt, erfolgt mit folgenden Funktionen:
215	198
216	199		``` pascal
217	200		//Prüfe ob StrPath ein LINK im Dateisystem ist
218	201		function IsLink(const StrPath: string):Boolean;
219	202		var info: stat;
220	203		begin
221	204		fplstat(StrPath, @info);
222	205		Result := (fpS_ISLNK(info.st_mode));
223	206		end;
224	207
225	208		//Prüfe ob StrPath eine reguläre Datei ist
226	209		function IsRegular(const StrPath: string):Boolean;
227	210		var info: stat;
228	211		begin
229	212		fplstat(StrPath, @info);
230	213		Result := (fpS_ISREG(info.st_mode));
231	214		end;
232	215		```
233	216
234		-	\
235	217		===Beispiel mit Auswertung des Drop=== Es erfolgt folgende Auswertung:
236	218
237	219		- Gehört der übergebene Pfad zum lokalen Dateisystem
238		-	~~- Ist es etwa eine URL z.B. WebLink <b><http://></b> oder eine Freigabe <b><smb://></b>~~
	220	+	- Ist es etwa eine URL z.B. WebLink <http://> oder eine Freigabe <smb://>
239	221		- Auf welchem Element ist der Drop erfolgt
240		-
241		-	\
242	222
243	223		``` pascal
244	224		procedure TForm1.FormDropFiles(Sender: TObject; const FileNames: array of String );
245	225		var i,j: integer;
246	226		s: String;
247	227		p: TPoint;
248	228		begin
249	229
250	230		// Auswertung des übergebenen Pfades
251	231		for i:=0 to High(FileNames) do
252	232		begin
253	233		s:= FileNames[i];
254	234		// Reihenfolge ist für linux wichtig !
255	235		if DirectoryExists(s) then begin
256	236		if IsLink(s) then Memo1.Lines.Add('VERZEICHNIS LINK:'+s)
257	237		else Memo1.Lines.Add('VERZEICHNIS:'+s);
258	238		end
259	239		else if FileExists(s) then begin
260	240		if IsLink(s) then Memo1.Lines.Add('DATEI LINK:'+s)
261	241		else if IsRegular(s) then Memo1.Lines.Add('DATEI:'+s)
262	242		else Memo1.Lines.Add('Systemdatei NICHT Lesen:'+s); // fifo, socket, usw.
263	243		end
264	244		else begin
265	245		j:= pos('://',s);
266	246		if ((j > 0)and(j < 6)) then begin // limit j< 6 hängt von zu erwartetenden Dienst ab
267	247		Memo1.Lines.Add('Eine Art von URL:'+s); // 'smb://' , 'http://' , usw.
268	248		Memo1.Lines.Add('Dienst:'+copy(s, 1, j));
269	249		Memo1.Lines.Add('PFAD:' +copy(s, j+3, Length(s)));
270	250		end
271	251		// Ein Drop mit Text erfolgt nur auf editierbare Felder
272	252		else Memo1.Lines.Add('TEXT:'+s); //Man kann hier also auch Text übergeben
273	253		end;
274	254
275	255		//Auf welchem Element war der Drop: Prüfe ob die Maus über einem ListView war
276	256		p:= Mouse.CursorPos;
277	257		if PtInRect(ListView1.BoundsRect,Form1.ScreenToClient(p)) then Memo1.Lines.Add('Drop in ListView1');
278	258		if PtInRect(ListView2.BoundsRect,Form1.ScreenToClient(p)) then Memo1.Lines.Add('Drop in ListView2');
279	259		end;
280	260		```
281	261
282	262		Anmerkung: Die Auswertung der Mausposition erfolgt im Formularkoordinatensystem.
283	263
284	264		---
285	265		From the Free Pascal wiki, page "Drag and Drop/de", as it stood on 2020-02-14 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