用Delphi做登陆窗口,如果使用无边框Form,想要拖动窗口,可以在某个控件的OnMouseDown事件中写下以下代码
ReleaseCapture; Perform(WM_SYSCOMMAND, $F012, 0);