无边框怎样实现自由可以调

中楠海保镖

如标题

一瓶矿泉水

1.自绘
2.用普通可调边框,然后用API,隐藏标题栏

浅浅`

1、下面这个是DLL命令的：

.版本 2
.DLL命令 SendMessageA, 整数型, , "SendMessageA"
    .参数 窗口句柄, 整数型
    .参数 MSG, 整数型
    .参数 Wprarm, 整数型
    .参数 Lprarm, 整数型


2、这个是源码：

.版本 2
.子程序 __启动窗口_鼠标位置被移动, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型
.如果 (横向位置 ≥ _启动窗口.宽度 － 6 且 纵向位置 ≤ _启动窗口.高度 － 10)
    .如果真 (_启动窗口.随意移动 ＝ 真)
        _启动窗口.随意移动 ＝ 假
        鼠标指针 ＝ { 12 }  ' 左右型
    .如果真结束
.否则
    .如果 (纵向位置 ≥ _启动窗口.高度 － 6 且 横向位置 ≤ _启动窗口.宽度 － 10)
        .如果真 (_启动窗口.随意移动 ＝ 真)
            _启动窗口.随意移动 ＝ 假
            鼠标指针 ＝ { 10 }  ' 上下型
        .如果真结束
    .否则
        .如果 (横向位置 ≥ _启动窗口.宽度 － 6 且 纵向位置 ≥ _启动窗口.高度 － 6)
            .如果真 (_启动窗口.随意移动 ＝ 真)
                _启动窗口.随意移动 ＝ 假
                鼠标指针 ＝ { 11 }
            .如果真结束
        .否则
            .如果真 (_启动窗口.随意移动 ＝ 假)
                _启动窗口.随意移动 ＝ 真
                鼠标指针 ＝ { 0 }
            .如果真结束
        .如果结束
    .如果结束

.如果结束

.子程序 __启动窗口_鼠标左键被按下, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型
.如果真 (鼠标指针 ＝ { 10 })  ' 上下型
    SendMessageA (_启动窗口.取窗口句柄 (), 161, 15, 0)  ' 调整控件大小
.如果真结束
.如果真 (鼠标指针 ＝ { 11 })  ' 左上角－右下角
    SendMessageA (_启动窗口.取窗口句柄 (), 161, 17, 0)  ' 调整控件大小
.如果真结束
.如果真 (鼠标指针 ＝ { 12 })  ' 左右型
    SendMessageA (_启动窗口.取窗口句柄 (), 161, 11, 0)  ' 调整控件大小
.如果真结束

浅浅`

无边框窗口移动、调整大小
http://bbs.125.la/forum.php?mod=viewthread&tid=5725
(出处: 精易论坛)