listview拖动的问题，拖动后itemindex不改变

Question

listview拖动的问题，拖动后itemindex不改变如下程序
procedure TFrmPartEdit.LvPointMouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  if LvPoint.Selected <> nil then
     begin
     PointDragItemIndex := LvPoint.ItemIndex;
     LvPoint.BeginDrag(True);
     end;
end;
procedure TFrmPartEdit.LvPointDragOver(Sender, Source: TObject; X,
  Y: Integer; State: TDragState; var Accept: Boolean);
begin
  if LvPoint.ItemIndex <> PointDragItemIndex then
     Accept := True
  Else Accept := False;
end;
Accept始终是false这么回事？？？

Answer 1

procedure TForm1.LvPointDragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
begin
  Accept := False;
  if LvPoint.GetItemAt(X,Y) <> nil then
  if LvPoint.GetItemAt(X,Y).Index <> PointDragItemIndex then
     Accept := True;
end;