[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 мне не понятно.