Перетаскивание ветки в TTreeView

@Hretgir · Регистрация: 25.01.2012

Author24 — интернет-сервис помощи студентам

Допустим такая ситуация, что нужно перетащить ветку в TTreeViev в другой узел. Есть подозрения что это уже реализовано в среде.

@volvo · 13.03.2018, 18:04

Грубо говоря - достаточно выставить для дерева DragMode в dmAutomatic, и написать два обработчика:

Pascal

// OnDragDrop, чтобы по отпусканию мыши скопировать протягиваемую ветку как дочернюю в тот узел, надо которым мышь отпущена
procedure TForm1.TreeView1DragDrop(Sender, Source: TObject; X, Y: Integer);
begin
  TreeView1.Selected.MoveTo(TreeView1.GetNodeAt(X, Y), naAddChild);
end;
 
// OnDragOver, чтобы разрешить бросать ветку в том же дереве, из которого ее тянут
procedure TForm1.TreeView1DragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
begin
  Accept := Sender = Source;
end;

, ну, а совершенствовать/добавлять фичи можно до бесконечности

@Hretgir · 13.03.2018, 18:59 **[ТС]**

Сообщение от volvo

совершенствовать/добавлять фичи можно до бесконечности

а больше и не надо ничего, что ещё можно сделать с деревом кроме как "привить" или "обрезать" ветку...
ну на дрова попилить можно, на доску

@Hretgir 356 / 124 / 3 Регистрация: 25.01.2012 Сообщений: 5,459 Записей в блоге: 118
		1
	Перетаскивание ветки в TTreeView 13.03.2018, 17:39. Показов 1897. Ответов 2 Метки нет (Все метки) Допустим такая ситуация, что нужно перетащить ветку в TTreeViev в другой узел. Есть подозрения что это уже реализовано в среде. 0

@Hretgir 356 / 124 / 3 Регистрация: 25.01.2012 Сообщений: 5,459 Записей в блоге: 118
	13.03.2018, 18:59 [ТС]	3
	Сообщение от volvo совершенствовать/добавлять фичи можно до бесконечности а больше и не надо ничего, что ещё можно сделать с деревом кроме как "привить" или "обрезать" ветку... ну на дрова попилить можно, на доску 0

Перетаскивание ветки в TTreeView

Решение