Delphi FMX 实现 鼠标 移动窗口

 

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;