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

Уважаемые посетители! Вы можете помочь развитию сайта и отблагодарить авторов. СБЕР: Карта 4817 7603 3929 5358; Телефон +7 (923) 659-79-22 привязан к карте. Заранее СПАСИБО!

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

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

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

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

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