风行者 发表于 2011-5-27 22:53:05

无边框窗口拖动

本帖最后由 风行者 于 2011-5-27 23:01 编辑

好像最近这话题比较热，写个例子大家参考下
#include <WinAPI.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

Global Const $SC_MOVE = 0xF010

$Form1 = GUICreate("Form1", 300, 239, 192, 124, BitOR($WS_SYSMENU, $WS_POPUP,$WS_SIZEBOX))
$Button1 = GUICtrlCreateButton("退出", 112, 160, 81, 33)
GUISetState()

While 1
        $Msg = GUIGetMsg()
        Switch $Msg
                Case $Button1
                        Exit
                Case $GUI_EVENT_PRIMARYDOWN
                        _SendMessage($Form1, $WM_SYSCOMMAND, $SC_MOVE + $HTCAPTION, 0)
        EndSwitch
WEnd

happytc 发表于 2011-5-27 23:10:07

非常不错呀！
根本没有想到用$WS_SYSMENU，谢谢了！

annybaby 发表于 2011-5-28 00:56:20

看起来不错,不过可以把那个边框弄小一点吗?

ooxxgod 发表于 2012-5-11 15:07:48

支持楼主不过还是喜欢边框{:face (361):}

penguinl 发表于 2012-5-15 02:00:44

这个代码很精辟啊！感谢分享！

syhw2222 发表于 2012-6-6 17:04:30

谢谢楼主分享！

xyhqqaa 发表于 2012-12-13 18:01:48

试试看..谢谢啦...哈

chamlien 发表于 2013-3-17 23:59:10

学习了，真的很强大！

茫然 发表于 2013-5-2 11:09:08

这个在事件模式下怎么弄？

laomeng 发表于 2013-5-2 12:51:59

这个很强大啊       得支持

scorpio1102 发表于 2013-6-27 13:30:22

恶补恶补ＧＵＩ

suifeng123 发表于 2013-8-6 20:21:56

正好用上   楼主辛苦了。。。。。。。。。。。。

suifeng123 发表于 2013-8-6 20:22:32

正好用上   楼主辛苦了。。。。。。。。。。。。

llllllxllllll 发表于 2013-8-24 21:22:30

下来研究学习，谢谢

snailyyy 发表于 2013-11-10 08:16:01

收藏下之前是通过在窗体上建立一个可以控制移动的标签完成的~~
GUICtrlCreateLabel("123", 0, 0, 440, 30, $SS_CENTERIMAGE, $GUI_WS_EX_PARENTDRAG)
页: [1] 2 3
查看完整版本: 无边框窗口拖动