Проблема с Drag&Drop [D7, WinXP]
Sergey210 © (2005-07-11 17:46:00)
Упрощенная проблема: Создаю на форме 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:00) [1]
Да, забыл сообщить - когда выключаю свойство RowSelect, то
глюки перестают быть. Но это свойство очень желательно оставить
включенным. :(
Наверх 
ЧАТ |
Орешник |
|
