android - Delphi android 拖放按钮

Question

情况

我正在使用 Delphi Seattle，我想开发一个非常简单的游戏。

如您所见，我这里有一个网格布局，灰色方 block 是 TButtons。我的目标是能够将(例如)左上角带有数字 2 的按钮移动到下方另一个带有数字 2 的按钮上方。我编写了以下代码:

procedure TForm1.Button1DragDrop(Sender: TObject; const [Ref] Data: TDragObject;
  const [Ref] Point: TPointF);
var t,d: TButton;
begin

 T := TButton(Sender);
 D := TButton(Data.Source);
 T.data := T.data + D.data; //sum 2 + 2

 //... other code, not relevant ...

end;

procedure TForm1.Button1DragOver(Sender: TObject; const [Ref] Data: TDragObject;
  const [Ref] Point: TPointF; var Operation: TDragOperation);
begin

 if ((Sender is TButton) and (Data.Source is TButton) and not(Sender = Data.Source)
     and (TButton(Sender).Text = TButton(Data.Source).Text) and (TButton(Data.Source).Text <> '')) then
  begin
   operation := TDragOperation.Move;
  end
 else
  begin
   operation := TDragOperation.None;
  end;

end;

当我将其作为 32 位 Windows 程序运行时，它工作正常。我可以单击带有数字 2 的按钮，然后在另一个带有数字 2 的按钮上执行拖放操作。

---

问题

我的 Android 设备中的这个程序无法运行，因为我无法执行拖放操作。我已经在网上看到了一些关于此的示例，但我找不到针对我的问题的具体解决方案。

我能做什么？

Answer 1

不幸的是，在 Android 上，“拖放”fmx 服务无法运行，只能在 Windows 和 IOS 上运行。