[Stalker2-42]

Здравствуйте.

Задача в следующем:
Как реализовать прокрутку ListView при перетаскивание элемента (LVN_BEGINDRAG), если курсор находится в верхней или нижней части ListView.
Drag'n'Drop работает, но перемещение могу делать только в видимой части списка.
Как сделать, понятие не имею.

Помогите пожалуйста.

[Страдалецъ]

Так попробуй:

Код:

procedure TForm9.ListView1DragOver(Sender, Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean);
Const
  HotArea = 10;
begin
 if Y in[ListView1.Height - HotArea..ListView1.Height]
 then SendMessage(ListView1.Handle, WM_VSCROLL, SB_LINEDOWN, 0);
 if Y in [0..HotArea]
 then SendMessage(ListView1.Handle, WM_VSCROLL, SB_LINEUP, 0);
 Accept := True;
end;

[Страдалецъ]

Странный косяк на форуме с обработкой синтаксиса.
В исходном сообщении "if Y in [" пробел есть, а после обработки нет "if Y in["

[Stalker2-42]

Сообщение от Страдалецъ

Так попробуй:

Код:

procedure TForm9.ListView1DragOver(Sender, Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean);
Const
  HotArea = 10;
begin
 if Y in[ListView1.Height - HotArea..ListView1.Height]
 then SendMessage(ListView1.Handle, WM_VSCROLL, SB_LINEDOWN, 0);
 if Y in [0..HotArea]
 then SendMessage(ListView1.Handle, WM_VSCROLL, SB_LINEUP, 0);
 Accept := True;
end;

DragOver?
Я Только через API, без VCL, делаю.
Так что DragOver мне не понятно.

[Stalker2-42]

Сообщение от Страдалецъ

Так попробуй:

Попробовал, но через таймер, примерно 300 мс.

Код:

procedure ABC(uTimerID, uMsg, dwUser, dw1, dw2 : Integer); stdcall;
Const
  HotArea = 10;
begin
  if P.Y in[LVRect.Bottom - HotArea..LVRect.Bottom] then
    SendMessage(LV, WM_VSCROLL, SB_LINEDOWN, 0);
  if P.Y in [{0..HotArea}24..50] then
    SendMessage(LV, WM_VSCROLL, SB_LINEUP, 0);
  ListView_RedrawItems(LV, indexlv - 5, IndexLV + 5); // без этого остаются следы
  UpdateWindow(lv);  //
end;

IndexLV -- возвращает номер item над которым мышка.
IndexLV := ListView_HitTest()

И во время движения содержимого ListView исчезает изображение переносимого итема, что с redraw, что без него.

Как можно исправить?

[Stalker2-42]

Я так полагаю, нет желающих помочь?

[Страдалецъ]

Рад бы, но я через API не пишу, не встретил еще той задачи где мне это могло бы позарез потребоваться.

[Admin]

Сообщение от Stalker2-42

Я так полагаю, нет желающих помочь?

посомотри этот пример, может найдешь что-то полезное http://www.codeproject.com/Articles/...-by-drag-and-d

[Stalker2-42]

Сообщение от Admin

посомотри этот пример, может найдешь что-то полезное http://www.codeproject.com/Articles/...-by-drag-and-d

Я этот же пример и использовал.