[Roman_s]

ОГРОМНОЕ СПАСИБО !!!

[w1zard]

Возвращаюсь к той же теме:
При перетаскивании, перемешивании (Drag&Drop) элементов ListBox'a пропадает выделение. Посоветуйте пожалуйста, как сделать так, чтобы выделение оставалось на том элементе, на котором отпустили мышку или подскажите в каком направлении ковырять надо.

[mik]

Наверное, ковырять надо в направлении ListView.
Иначе перед перетаскиванием, перемешиванием надо запоминать строчку в переменной:

Код:

SaveStr := ListBox.Items[ListBox.ItemIndex]

А после, соответственно искать в списке:

Код:

ListBox.ItemIndex := ListBox.Items.IndexOf(SaveStr)