在 Delphi xe firemonkey 中将 ListBoxItem 拖放到同一个 ListBox 上

Question

我需要一种方法在移动应用程序中对同一 listbox 中的 listboxItems 进行排序。

我在表单中添加了listbox，并添加了一些listboxitems，我将listboxitems 的DargMode 设置为dmAutomatic，我已经编写了这个事件处理程序：

procedure TForm1.ListBox1DragDrop(Sender: TObject; const Data: TDragObject;
  const Point: TPointF);
var
  DropedTarget : TListBoxItem;
begin
  DropedTarget := ListBox1.ItemByPoint(Point.X, Point.Y);
  if (DropedTarget <> nil) then
    (Data.Source as TListBoxItem).Index := DropedTarget.Index;
end;

procedure TForm1.ListBox1DragOver(Sender: TObject; const Data: TDragObject;
  const Point: TPointF; var Operation: TDragOperation);
begin
  if Data.Source is TListBoxItem then
    Operation := TDragOperation.Move;
end;

问题是列表框中的项目根本无法拖动。

我错过了什么？

Answer 1

我认为您需要检查一下，您是否检查了 ListBox1 的 AllowDrag 属性。

并检查是否设置 ListBox1 DragMode 是 Manual。