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

Вниз

DragDrop в ListView   Найти похожие ветки 

 
anod ©   (2002-05-05 20:16) [0]

Возникает ошибка, когда пользователь отпускает перетаскиваемую строку на пересечении 2х строк.(видимо)

s:=DirList.items[DirList.ItemIndex].Caption;
// Вот здесь пытаюсь отследить, но не помогает
if DirList.GetItemAt(x,y).Index<>-1 then
begin
DirList.Items.Delete(DirList.ItemIndex);
i:=DirList.GetItemAt(x,y).Index;
DirList.Items.Insert(i).Caption:=s;
for i:= 0 to length(d)-1 do
d[i]:=trim(copy(DirList.Items[i].Caption,5,length(DirList.Items[i].Caption)));
end;


Помогите, что не так?


 
Song ©   (2002-05-05 20:26) [1]

help:
If there is no item at the location, GetItemAt returns nil.


 
Song ©   (2002-05-05 20:29) [2]

Т.е.
...
IF Assigned(DirList.GetItemAt(x,y).Index) then ...
...


 
anod ©   (2002-05-05 21:04) [3]

Я пытался сравнивать nil
пишет Incopatible types,

А понял !!!!

Не

IF Assigned(DirList.GetItemAt(x,y).Index) then ...



IF Assigned(DirList.GetItemAt(x,y)) then ...



 
anod ©   (2002-05-05 21:06) [4]

Уже 2ой раз так попадаюсь,но по идее если нет Index"a должен вернуть -1 (Где -то в Нелр прочитал)


 
anod ©   (2002-05-05 21:10) [5]

Странно все равно выдает ошибку, только теперь реже.
EAccessViolation

И помоему я выкупил где, если умудрится при перетаскивании выделить сразу несколько объектов (куда перетаскиваешь), то появляется ошибка (хотя я же вычисляю по X, Y ?)?



 
anod ©   (2002-05-06 00:16) [6]

Вроде сделал:

Поставил ещё проверку на Index = -1



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

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

Наверх




Память: 0.47 MB
Время: 0.012 c
6-64755
Diablo
2002-01-23 15:47
2002.05.20
Нужна помощь


1-64735
Шаповалов Кирилл
2002-05-07 09:31
2002.05.20
Вывод Timage поверх TWebBrowser


6-64762
Kryptin Phreek
2002-03-08 12:21
2002.05.20
socket.connections


6-64767
Brand
2002-03-09 01:09
2002.05.20
Socket под WinXP (брандмауэр).


3-64460
maxim2
2002-04-24 22:21
2002.05.20
Можноли задать любой цвет для DBGrid или шапки DBGrig