Delphi FMX 实现 鼠标 移动窗口
procedure Tufrm_min.rctngl1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Single);
begin
FMouseDown := True;
end;
procedure Tufrm_min.rctngl1MouseMove(Sender: TObject; Shift: TShiftState;
X, Y: Single);
begin
if FMouseDown then
begin
ReleaseCapture;
SendMessage(FmxHandleToHWND(Handle), WM_SYSCOMMAND, SC_MOVE + HTCAPTION, 0);
end;
end;
procedure Tufrm_min.rctngl1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Single);
begin
FMouseDown := False;
end;