FormCreate事件中:<br> SetWindowLong(Handle, GWL_STYLE, GetWindowLong(Handle,GWL_STYLE) and not WS_CAPTION);<br> ClientHeight := Height;<br> Refresh;<br>在MouseDown事件中:<br> ReleaseCapture;<br> Self.Perform(WM_SYSCOMMAND, $F012, 0);<br>可以任意拖动窗体<br>