unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Types, System.UITypes,
  System.Classes, System.Variants, FMX.Types, FMX.Controls, FMX.Platform.Win,
  FMX.Forms, FMX.Graphics, FMX.Dialogs;

type
  TForm1 = class(TForm)
    procedure FormMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Single);
  private
    { Private declarations }
    procedure WMNCCalcSize(var Msg: TWMNCCalcSize); message WM_NCCALCSIZE;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

const
  WM_SYSCOMMAND = $0112;

implementation

{$R *.fmx}

procedure TForm1.WMNCCalcSize(var Msg: TWMNCCalcSize);
begin
  Msg.Msg := WM_NULL;
  inherited;
end;

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Single);
begin
  if Button = TMouseButton.mbLeft then
    begin
      ReleaseCapture;
      SendMessage(FmxHandleToHWND(Self.Handle), WM_SYSCOMMAND, SC_MOVE + HTCAPTION, 0);
    end;
end;

end.

Posted via ActualForum NNTP Server 1.5

object Form1: TForm1
  Left = 0
  Top = 0
  Caption = 'Form1'
  ClientHeight = 520
  ClientWidth = 454
  FormFactor.Width = 320
  FormFactor.Height = 480
  FormFactor.Devices = [Desktop]
  DesignerMasterStyle = 0
  object Rectangle1: TRectangle
    Align = Top
    Fill.Color = xFF5F8DF5
    Sides = [Top]
    Size.Width = 454.000000000000000000
    Size.Height = 41.000000000000000000
    Size.PlatformDefault = False
    OnMouseDown = Rectangle1MouseDown
  end
end

unit Unit1;

interface

uses
  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
  FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.Objects,
  FMX.Controls.Presentation, FMX.StdCtrls;

type
  TForm1 = class(TForm)
    Rectangle1: TRectangle;
    procedure Rectangle1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Single);
   private
    FOldWndProc : Pointer;
   protected
    Procedure CreateHandle; Override;
    Procedure DestroyHandle; Override;
  end;

var
  Form1: TForm1;

implementation
uses
 Winapi.Windows,
 Winapi.Messages,
 FMX.Platform.Win;
{$R *.fmx}

{ TForm1 }

type
 TWndProc = function(hwnd: HWND; uMsg: UINT; wParam: WPARAM; lParam: LPARAM): LRESULT; stdcall;

function WndProc(hwnd: HWND; uMsg: UINT; wParam: WPARAM; lParam: LPARAM): LRESULT; stdcall;
begin

 case uMsg of

  WM_NCCALCSIZE : if wParam = 1 then
                   begin
                    Inc(PNCCalcSizeParams(lParam).rgrc[0].Left, GetSystemMetrics(SM_CXBORDER) + GetSystemMetrics(SM_CXSIZEFRAME) - 1);
                    Dec(PNCCalcSizeParams(lParam).rgrc[0].Right, GetSystemMetrics(SM_CXBORDER) + GetSystemMetrics(SM_CXSIZEFRAME) - 1);
                    Dec(PNCCalcSizeParams(lParam).rgrc[0].Bottom, GetSystemMetrics(SM_CYBORDER) + GetSystemMetrics(SM_CYSIZEFRAME) - 1);
                    result := 0;
                   end
                  else
                   result := DefWindowProc(hwnd, uMsg, wParam, lParam);

 else

  Result := TWndProc(TForm1(FindWindow(hwnd)).FOldWndProc)(hwnd, uMsg, wParam, lParam);

 end;

end;

procedure TForm1.CreateHandle;
begin
 inherited;
 FOldWndProc := Pointer(GetWindowLongPtr(TWinWindowHandle(Handle).Wnd, GWL_WNDPROC));
 SetWindowLongPtr(TWinWindowHandle(Handle).Wnd, GWL_WNDPROC, NativeInt(@WndProc));
end;

procedure TForm1.DestroyHandle;
begin
 SetWindowLongPtr(TWinWindowHandle(Handle).Wnd, GWL_WNDPROC, NativeInt(FOldWndProc));
 inherited;
end;

procedure TForm1.Rectangle1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Single);
begin
  if Button = TMouseButton.mbLeft then
    begin
      ReleaseCapture;
      SendMessage(TWinWindowHandle(Handle).Wnd, WM_SYSCOMMAND, SC_MOVE + HTCAPTION, 0);
    end;
end;

end.

Posted via ActualForum NNTP Server 1.5