Przesuwanie formy klikając poza paskiem tytułowym

Aby przesunąć formę klikając w jakiekolwiek inne miejsce niż tylko pasek tytułu wystarczy skorzystać z komunikatów Windowsa …

type

  TForm1 = class(TForm)

  public

    procedure WMNCHitTest(var M: TWMNCHitTest); message wm_NCHitTest;

  end;


var

  Form1: TForm1;


implementation

{$R *.DFM}


procedure TForm1.WMNCHitTest(var M: TWMNCHitTest);

begin

  inherited;                   

  if  M.Result = htClient then  

    M.Result := htCaption;     

end;

type

TForm1 = class(TForm)

public

procedure WMNCHitTest(var M: TWMNCHitTest); message wm_NCHitTest;

end;

var

Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.WMNCHitTest(var M: TWMNCHitTest);

begin

inherited;

if M.Result = htClient then

M.Result := htCaption;

end;

Autor: Nakiel