如何拖动一个将 BorderStyle 设为bsNone 的窗体。

Question

谢谢！

Answer 1

关注
不过借第三方组件应该可以的，
比如：FlatStyle组件下的FlatTitlebar1

Answer 2

最简单的方法，在Form的OnMouseDown事件中：
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  ReleaseCapture;
  Perform(WM_SYSCOMMAND, $F012, 0);
end;

Answer 3

另一种方法：
//定义
private
  procedure MoveForm(var M:TWMNCHITTEST);message WM_NCHITTEST;
//实现
procedure TForm1.MoveForm(var M:TWMNCHITTEST);
begin
  inherited;
  if M.Result=HTCLIENT then M.Result:=HTCAPTION;
end;