搬运与大家分享

使用方法：复制后保存成dock库文件，放lib里，调用使用 import dock;

class dock{
    ctor(winform, acts=10/*每过程动作次数*/, isTop=false/*置顶*/, isDock=true/*吸附*/, margin=false/*留边*/){
        assert(winform[["hwnd"]], "参数@1必须是窗体对象");
        acts = ..math.abs(tonumber(acts) : 1);
        
        //this = win.form(); this.messageOnly();
        this = winform;
        this.site, this.msIn = "", 0;
        var scrw, scrh = win.getScreen();
        
        var wndGdi, alSign = _wndGdi();
        var wndAlpha = function(v = false, w, h){
            alSign = !!v;
            if(!alSign){
                this.transparent(false);
                //this.hide = 1; this.hide = 0;
                //this.redraw();
                _redrawWindow(this.hwnd, , , 0x400/*_RDW_FRAME*/ | 0x1/*_RDW_INVALIDATE*/ | 0x4/*_RDW_ERASE*/)
                return;
            }
            this.transparent(true);
            var col = margin ? 0xaad2d2d2 : 0x01d2d2d2//0xaad2d2d2 : 0x01d2d2d2
            wndGdi(this.hwnd, w, h, function(mdc, w, h){
                var gph = gdip.graphics(mdc)
                var gBru = gdip.solidBrush(col)
                gph.fillRectangle(gBru, 0, 0, w, h)
                gBru.delete()
                gph.delete()
                gdi.updateLayeredWindow(this.hwnd, mdc, ::SIZE(w, h), gdi.blendFunction(255/*透明度*/))
            })
        }
        
        var ap = {}; //aTimer动作定时器运行时参数
        var aTimer = win.timer(, 10);
        aTimer.onTimer = function(hwnd,msg,id,tick){
            var c = true;
            if(ap[["site"]] == "top"){
                ap.y += ap.v;
                c = ap.msIn ? !(ap.y<0) : !(ap.y>4-ap.h);
                if(c) ap.y = !ap.msIn ? 4-ap.h : 0;
            }
            elseif(ap[["site"]] == "left"){
                ap.x += ap.v;
                c = ap.msIn ? !(ap.x<0) : !(ap.x>4-ap.w);
                if(c) ap.x = !ap.msIn ? 4-ap.w : 0;
            }
            elseif(ap[["site"]] == "right"){
                ap.x -= ap.v;
                c = ap.msIn ? !(ap.x>scrw-ap.w) : !(ap.x<scrw-4);
                if(c) ap.x = ap.msIn ? scrw-ap.w : scrw-4;
            }
            this.setPos(ap.x, ap.y);
            if(c){
                if(#ap[["site"]] && !ap.msIn){
                    wndAlpha(1, ap.w, ap.h);
                    if(!isTop) win.setTopmost(this.hwnd);
                }
                elseif(!isTop) win.setTopmost(this.hwnd, false);
                owner.disable();
            }
            elseif(alSign) wndAlpha(, ap.w, ap.h);
        }
        
        var msPos = ::POINT();
        var mTimer = win.timer(, 10);
        mTimer.onTimer = function(hwnd,msg,id,tick){
            var x, y, w, h = this.getPos();
            if(w >= scrw) return;
            
            //**判断窗口停靠位置
            var site = ""
            if(x <= 0) site = "left";
            elseif(x+w >= scrw) site = "right";
            elseif(y <= 0) site = "top";
            
            if(this.site != site){
                this.site = site
                ::PostMessage(this.hwnd, 0x503, 0, 0)
            }
            //**/
            
            //**检测鼠标进出窗口 左键状态 判断是否动作
            _getMsPos(msPos)
            var msIn = _msIn(msPos.x, msPos.y) ? 1 : 0
            var v = _getAsyncKeyState(1)
            if(this.msIn != msIn){
                this.msIn = msIn
                ::PostMessage(this.hwnd, 0x5A3, 0, 0)
            }
            elseif(!v) return;
            if(!#site || v) return;
            //**/
            
            //**执行动作
            v = (site == "top") ? ..math.ceil(h/acts) : ..math.ceil(w/acts);
            v = msIn ? v : -v;
            ap.site,ap.msIn,ap.x,ap.y,ap.w,ap.h,ap.v = site,msIn,x,y,w,h,v;
            aTimer.enable();
            //**/
        }
        
        this.wndMargin = function(v = false){
            margin = !!v
        }
        
        //**窗口呼出
        this.wndDisplay = function(){
            var x, y, w, h = owner.getPos();
            if(x<0) x = 0
            elseif(x+w>scrw) x = scrw-w
            if(y<0) y = 0
            elseif(y+h>scrh) y = scrh-h
            owner.setPos(x, y)
            owner.transparent(false)
        }
        this.wndDisplay()
        //**/
        
        //**窗口置顶 避免与aTimer里的win.setTopmost冲突
        this.wndTopmost = function(v){
            isTop = !!v
            win.setTopmost(owner.hwnd, isTop)
            return isTop;
        }
        this.wndTopmost(isTop)
        //**/
        
        //**窗口吸附
        this.wndDock = function(v = true){
            isDock = !!v
            if(isDock) mTimer.enable();
            else { mTimer.disable(); owner.wndDisplay() }
            return isDock;
        }
        this.wndDock(isDock)
        //**/
        
        this.wndproc = {
            [0x7E/*_WM_DISPLAYCHANGE 屏幕分辨率改变*/] = function(hwnd,message,wParam,lParam){
                scrw, scrh = win.getScreen();
                owner.wndDisplay()
            }
        }
        ::PostMessage(this.hwnd, 0x5A3, 0, 0);
    };
}
namespace dock{
    import win.timer;
    import gdip.graphics;
    import gdip.solidBrush;
    import gdi;
   
    _getMsPos = ::User32.GetCursorPos;
    _redrawWindow = ::User32.RedrawWindow;
    _fromPoint = ::User32.WindowFromPoint;
    _getAsyncKeyState = ::User32.GetAsyncKeyState;
    _getWindowThreadProcessId = ::User32.GetWindowThreadProcessId;
    _msIn = function(x, y){
        var hwnd = _fromPoint(x, y);
        return _getWindowThreadProcessId(hwnd, 0) == ..thread.getId();
    }
    _wndGdi = function(){
        var hdc, mdc, hbmp;
        var create = function(hwnd, w, h){
            hdc = ::GetWindowDC(hwnd);
            mdc = ::CreateCompatibleDC();
            hbmp = ::CreateCompatibleBitmap(hdc, w, h);
            ::SelectObject(mdc, hbmp);
        }
        var delete = function(hwnd){
            ::ReleaseDC(hwnd, hdc);
            ::DeleteDC(mdc);
            ::DeleteObject(hbmp);
        }
        return function(hwnd, w, h, draw, ...){
            create(hwnd, w, h);
            if(type(draw) == "function") draw(mdc, w, h, ...);
            delete(hwnd);
        }
    }
}

已知问题（希望光大能帮助优化下）：

1、窗体贴边影藏之后，无法通过点击状态栏程序图标激活，必须鼠标放到贴边位置，有时候找不到，需要鼠标围着桌面贴边找一圈；

2、贴边程序不稳定，有时候锁屏之后，再打开电脑，发现程序界面变得透明，甚至到找不到了，完全透明了；

纯属搬运，非原创