fmx windows 下 制作无边框窗口最小化最大化并鼠标可拖移窗口

1，最顶端 放一个rectangle 置顶 ，此区域后面实现鼠标拖动  移动窗口，可在上面放置最大，最小，关闭按钮

2，窗口边框模式 设置 none

3,rectangel mousemove事件

uses
Winapi.Windows,Winapi.Messages,FMX.Platform.Win



procedure TfrmMain.Rectangle1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Single);
begin
    {$IFDEF MSWINDOWS}

  begin
    ReleaseCapture;
    SendMessage(FmxHandleToHWND(Handle), WM_SYSCOMMAND, SC_MOVE + HTCAPTION, 0);
  end;
  {$ENDIF}
end;

上面实现了 fmx windows 下 可拖动移动窗口位置

4,最小化，我的最小化在 另一个 frame上，实现为

procedure TCustomListview.tvMinClick(Sender: TObject);
begin
  {$IFDEF MSWIND