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

Question

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

我已经listbox在表单中添加了一些listboxitems，我已经设置DargMode了listboxitemsto 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

我认为你需要检查，你已经检查AllowDrag了ListBox1.

并检查将DragMode设置为.ListBox1 Manual