Delphi无边框Form拖动

用Delphi做登陆窗口，如果使用无边框Form，想要拖动窗口，可以在某个控件的OnMouseDown事件中写下以下代码

ReleaseCapture;

Perform(WM_SYSCOMMAND, $F012, 0);