如何不让窗体拖动

Question

如何不让鼠标拖动窗体（即鼠标放到窗体标题栏时无法拖动）

Answer 1

不显示标题栏可以不？BorderStyle := bsNone;或者拦截WM_NCHITTEST消息，msg.Result := htClient;

Answer 2

procedure WMNCHITTEST(var Message: TWMNCHitTest); message WM_NCHITTEST;procedure TForm1.WMNCHITTEST(var message: twmmove);
begin
  message.Msg := htClient;
end;

Answer 3

写错了，再写过
procedure WMNCHITTEST(var Message: TWMNCHitTest); message WM_NCHITTEST;procedure TForm1.WMNCHITTEST(var message: TWMNCHitTest);
begin
  message.Msg := htClient;
end;