Drag And Drop в TTreeView

Posted by Chas under Delphi

Реализовал Drag And Drop в TTreeView. Все вроде нормально работает, но не отлично. А именно — работает перетаскивание из пункта в пункт. А вот если, например — в пункте есть три подпункта (1, 2, 3) и их нужно поменять местами (3, 2, 1), это уже никак не сделать, разве что все эти подпункты выкидывать в другой пункт, а потом по очереди вкидывать обратно.

mihali4

procedure TForm1.TreeView1DragDrop(Sender, Source: TObject; X, Y: Integer);

begin

(Source as TTreeView).Selected.MoveTo((Sender as TTreeView).DropTarget, naInsert);

end;

Это будет действовать при любом перемещении ноды, кроме случая, когда вы попытаетесь поставить ноду последней.
Один из методов решения — пусть по нажатию, например, клавиши CTRL у вас меняется naInsert на naAdd…
То есть без клавиши CTRL будет вставка «перед», а с нажатием — «после».

тема на форуме

Похожие статьи

• Перетаскивание пунктов в ListBox
• Как выделить программно элемент в TTreeView
• Drag-and-Drop в Mac OS X
• Поддержка drag and drop для Tlistview?