如何通过另一个对象拖动屏幕上的无边框 FMX 表单？

Question

我正在尝试制作一个可在屏幕上拖动的表单，即我可以抓住它并在屏幕上移动它。它是透明的并且没有边框，但是图像可以作为其他控件的背景。我想使用图像的事件来控制表单的拖动。我怎样才能做到这一点？

我发现有这个 TDragObject 参数的 DragEnter、DragLeave、DragStart 方法，我不知道。

有人可以帮忙吗？

Answer 1

基本上你必须手动完成。

这是一些来自表单的 delphi/windows 代码，上面有透明图像 (TransImage)，没有边框等 事件在 Image 的形式中，所以 Top & Left 指的是 TMainScanForm.Top/Left。

这将使用图像事件来拖动您的表单以检测点击和移动

...

// Mouse Drag Control
MouseDown: Boolean;
TopLeft,
MouseStart: TPoint;

...

procedure TMainScanForm.TransImageMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  MouseDown := (Button = mbLeft);
  if MouseDown then
  begin
    MouseStart.X := X;
    MouseStart.Y := Y;
    TopLeft := ClientToScreen(MouseStart);
    TopLeft.X := TopLeft.X - X;
    TopLeft.Y := TopLeft.Y - Y;
    end;
end;

procedure TMainScanForm.TransImageMouseMove( Sender: TObject;
                                  Shift: TShiftState;
                                  X, Y: Integer);
var
  NewPoint: TPoint;
begin
  if MouseDown  then
  begin
    NewPoint.X := X;
    NewPoint.Y := Y;
    NewPoint := ClientToScreen(NewPoint);    // On Screen
    NewPoint.Y := NewPoint.Y - MouseStart.Y; // New Onscreen
    NewPoint.X := NewPoint.X - MouseStart.X;
    Top := NewPoint.Y;
    Left := NewPoint.X;
    Refresh;
  end;
end;

procedure TMainScanForm.TransImageMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  MouseDown := False;
end;