macos - Delphi fmx移动无边界表格

Question

快速移动鼠标时，如何在Delphi FMX中移动表格。 ？
我尝试了下面的代码，但是当您快速移动鼠标时，它停止工作。

How to drag a borderless FMX form on the screen through another object?

Answer 1

尽管在文章链接中提到它是OP的评论，但我认为在此添加它也不会有什么坏处，因为这不是公认的答案，有些人以后搜索它可能会错过它。还要确保它实际上是鼠标左键，除非您也想使其与其他按钮一起拖动。

procedure TMyForm.DragPanelMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Single);
begin
  if (Button = TMouseButton.mbLeft) then StartWindowDrag;
end;