在 Firemonkey 中移动无边框表单

在我使用的VCL形式中WM_系统命令，但在 firemonkey 中它是未声明的。

我测试这段代码：

procedure TForm4.dragPanelMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Single);
begin
  isDraging := true;
  X0 := X;
  Y0 := Y;
end;

procedure TForm4.dragPanelMouseMove(Sender: TObject; Shift: TShiftState;
  X, Y: Single);
begin
  if isDraging then
  begin
    Form4.Left := Trunc(Form4.Left + X - X0);
    Form4.Top := Trunc(Form4.Top + Y - Y0);
  end;
end;

procedure TForm4.dragPanelMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Single);
begin
  isDraging := False;
end;

这有效，但仅适用于慢动作！

如何在 Firemonkey 中移动表单？

更简单的方法是使用 Form 的 StartWindowDrag 方法。这样，它就可以在 Windows 和 MacOS 上运行，并且只需 1 行代码。就像这样：

procedure TForm4.dragPanelMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Single);
begin
    Self.StartWindowDrag;
end;