优购物官方网站 商城,苏州网络推广公司永阳,官方微网站吗,阿里云使用wordpress1，最顶端 放一个rectangle 置顶 ，此区域后面实现鼠标拖动 移动窗口，可在上面放置最大，最小，关闭按钮 2，窗口边框模式 设置 none 3,rectangel mousemove事件 uses
Winapi.Windows,Winapi.Messages,FMX.Platform.Winprocedure TfrmMain.Rectangle1MouseMove(Sender: TObje… 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
