Проблема с Drag&Drop

← →
Sergey210 (2005-07-11 17:46) [0]

Упрощенная проблема: Создаю на форме 2 TListView. Оба набиты десятком элементов (TListItem) с разным текстом. У обоих свойство ViewStyle установлено в vsReport и включено свойство RowSelect.

У второго TListView свойство DragMode установлено в dmAutomatic, а у первого оставлено в dmManual.

У первого в событии OnDragOver стоит простенький код, разрешающий перетаскивание при наведении на четную (по индексу) строку:
var T:TListItem; begin T:=ListView1.GetItemAt(X,Y); If T=nil then Exit; If T.Index mod 2=0 then Accept:=True else Accept:=False; Accept:=True; end;

А теперь глюк - если перетаскивать элементы из 2-го ListView в первое, где-нибудь из середины, то курсор мыши начинает оставлять на форме и на самом ListView (том, куда перетаскиваю) следы, т.е. остатки курсора, курсор при перемещении жутко мерцает. Думал сначала, что глюк системы, попробовал на соседней машине - тоже самое. В чем может быть дело?

← →
Sergey210 (2005-07-11 17:47) [1]

Да, забыл сообщить - когда выключаю свойство RowSelect, то глюки перестают быть. Но это свойство очень желательно оставить включенным. :(

Проблема с Drag&amp;Drop Найти похожие ветки

Проблема с Drag&Drop Найти похожие ветки