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

本文主要是介绍fmx windows 下 制作无边框窗口最小化最大化并鼠标可拖移窗口，希望对大家解决编程问题提供一定的参考价值，需要的开发者们随着小编来一起学习吧！

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

这篇关于fmx windows 下 制作无边框窗口最小化最大化并鼠标可拖移窗口的文章就介绍到这儿，希望我们推荐的文章对编程师们有所帮助！

---