Последние записи

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

23rd
Дек

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 будет вставка «перед», а с нажатием — «после».

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