1

モバイルアプリケーションでlistboxItems同じものを並べ替える方法が必要です。listbox

listboxをフォームに入れ、いくつかを追加しlistboxitems、 を に設定しDargMode、このイベント ハンドラーを作成しました。listboxitemsdmAutomatic

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;

問題は、リスト ボックス内のアイテムをまったくドラッグできないことです。

私が逃したものは何ですか？

4

1 に答える 1