Как перемещать строки в ListBox

Перемещение строки в ListBox

  • Поместим на форму компонент TListBox. Добавим несколько элементов в список. После чего установим свойство DragMode компонента TListBox в dmAutomatic.
  • Объявим переменную StartingPoint:

  • В обработчике событий OnDragDrop компонента TListBox запишем:

  • В обработчике событий OnDragOver:

  • В обработчике событий OnMouseDown: