Пример перетаскивания элементов списка
code_11110.txt

немного перерисовал для красоты code_11118.txt . Давно хотел замутить нечто похожее, но только не со сменой пунктов, а с удалением на старом месте и вставкой в новое..

неплохо. Лишний раз убеждает в том, что было б желание и реализовать можно все что угодно.

LainX, молодец! (небрежность отрисовки выставленной схемы спишем на гениальность Автора )

Больше напоминает пятнашки

Ничего что я твою первую схему прикрутил к моему плееру?
Можешь помочь прикрутить её к ListBox? У меня не получается.

ну по идее ничего там сложного нет

По идее оно конечно да. Но не получается. когда тыкаешь мышой тыкнутый элемент исчезает. полвечера бился и ничего. Сделай, А?

ты с каким элементом списка работаешь?

эээ. с Listbox. просто сперва поменял одно на другое, а потом начались глюки.

udavos, debug тебе в руки он поможет..

Нужно было тогда представить так "Обмен позициями в списке, с помощью перетаскивания мышью"
С помощью такого способа что то отсортировать в списке очень затруднительно, поэтому и склонен сравнивать с пятнашками

А как сделать перетаскивание в таблице? Вот, подменил все точки, токлько к сожалению пример не работает. Помогите реализовать.

code_12872.txt

АлеX, посмотри схему в примерах ElementsDelphiExampleFormsStringTableMTRow_Drag_And_Drop.sha

Cпасибо, nesco!