各类网站建设常州百度推广公司

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

2，窗口边框模式 设置 none

3,rectangel mousemove事件

uses
Winapi.Windows,Winapi.Messages,FMX.Platform.Winprocedure TfrmMain.Rectangle1MouseMove(Sender: TObject; Shift: TShiftState; X,Y: Single);
begin{$IFDEF MSWINDOWS}beginReleaseCapture;SendMessage(FmxHandleToHWND(Handle), WM_SYSCOMMAND, SC_MOVE + HTCAPTION, 0);end;{$ENDIF}
end;

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

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

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