当 BorderStyle := bsNone 时,怎么用代码实现对窗体的拖动?
    **.MouseDown事件中 //Windows有自带的移动事件
    Begin
    ReleaseCapture;
    SendMessage(Handle, WM_SYSCOMMAND, SC_MOVW + HTCaption, 0);
    end;