Delphi中拖动无边框窗口的几种简单方法

1.MouseMove事件中加入：

  ReleaseCapture;
  Perform(WM_SYSCOMMAND, $F017 , 0);

2.MouseDown事件中加入：

POSTMESSAGE(Self.Handle,WM_LBUTTONUP,0,0);
POSTMESSAGE(Self.Handle,274,61458,0);

3.MouseDown事件中加入：

ReleaseCapture;
Perform(WM_SYSCOMMAND, $F012, 0);