Delphi FMX 用鼠标调整无边框窗体大小

Question

是否可以在 Delphi FMX 中使用鼠标调整无边框窗体的大小？我尝试使用 OnMouseDown 和 OnMouseMove ，然后使用表单的位置与表单的左侧和顶部进行比较，但我无法使其工作。

出于某种原因，FMX 中的鼠标看起来与普通 VCL 应用程序中的鼠标非常不同。

Answer 1

在 Firemonkey 中，鼠标坐标并不总是相对于表单的顶部/左侧像素。

您可以使用函数来转换它们并使用如下代码模拟 sizegrip :

procedure TFenetre.btnRedimensionneMouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Single);
begin
  if (ssLeft in Shift) then
  begin
    deplacementX := X;
    deplacementY := Y;
  end;
end;

procedure TFenetre.btnRedimensionneMouseMove(Sender: TObject;
  Shift: TShiftState; X, Y: Single);
begin
  if (ssLeft in Shift) then
  begin
    Self.width := Self.width - deplacementX + X;
    Self.height := Self.height - deplacementY + Y;
  end;
end;

btnRedimensionne 是一个按钮、图像或任何其他用作 handle 大小控制的东西。

将其添加到您的类(class)中:

deplacementX, deplacementY: Single;

这些字段用于计算移动(增加或减小表单/框架的大小)。