Перемещение элементов TListBox при помощи мыши |
![]() |
![]() |
Статьи |
Этот небольшой пример показывает, как использовать мышь для перемещения пунктов в TListBox. Другой вариант расмотрен здесь. Обратите внимание: это только маленький пример, который показывает Вам этот эффект. Должны быть выполнены следующие шаги, чтобы получить рабочий код: Установите свойство DragMode компонента TListBox в dmAutomatic. Затем, Вы должны обеспечить два обработчика событий DragDrop и DragOver для TListBox. Поместите следующий код в обработчик события DragOver:
И наконец, поместите этот код в обработчик события DragDrop:
Теперь Вы можете перемещать элементы списка при помощи мыши. Автор: http://www.delphi3000.com |