Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.07.31;
Скачать: CL | DM;

Вниз

Проблема с 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, то глюки перестают быть. Но это свойство очень желательно оставить включенным. :(



Страницы: 1 вся ветка

Текущий архив: 2005.07.31;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.025 c
1-1121247674
webpauk
2005-07-13 13:41
2005.07.31
сообщение dblclick


14-1121034427
DDDsa
2005-07-11 02:27
2005.07.31
Хостинг


11-1104167558
MTsv DN
2004-12-27 20:12
2005.07.31
Использование внутренних ресурсов


1-1121138794
Delphi_is_cool
2005-07-12 07:26
2005.07.31
"Вырезать", "Копировать" и "Вставить" в TWebBrowser


3-1118841262
Магнум
2005-06-15 17:14
2005.07.31
Работа с подтаблицами в MDB