隐藏窗体最上工具条（$WS_POPUP）后，还可以使用鼠标移动窗体

wuweixian · 发表于 2013-5-7 15:20:11

本帖最后由 wuweixian 于 2013-5-7 15:25 编辑

#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <GDIPlus.au3>
#Include <WinAPI.au3>

$Form1 = GUICreate("test", 600, 480,-1,-1,BitOr($WS_EX_TOOLWINDOW,$WS_POPUP))
GUISetFont(9, 400, 0, "微软雅黑")
GUISetBkColor(0x00FFFF)

$L18=GUICtrlCreateLabel("退出",10, 100, 70, 36)
;GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)

GUISetState(@SW_SHOW)

While 1
      $nMsg = GUIGetMsg(1)
      if $nMsg[1] == $Form1 Then ;and $nMsg[0] == $WM_LBUTTONDOWN Then
            DllCall( "user32.dll", "BOOL", "ReleaseCapture" )
            DllCall( "user32.dll","LRESULT","SendMessage","HWND",$Form1,"UINT",$WM_SYSCOMMAND,"WPARAM",0xF010 + 2,"LPARAM",0)
      EndIf
            Switch $nMsg[0]
            Case $L18
                     Exit
      EndSwitch
WEnd

lvsiqqgw · 发表于 2013-7-28 03:28:58

楼上的你能在详细说明一下吗？说清楚我会顶你的

50186610 · 发表于 2013-7-30 13:45:20

没错，的确是可以鼠标拖动

llllllxllllll · 发表于 2013-8-29 15:57:44

很好的例子

chinawolf · 发表于 2014-5-23 16:42:47

水平有限看不太懂。

qsy666888 · 发表于 2014-5-28 08:24:53

水平有限看不太懂。

nqawen · 发表于 2014-7-21 16:41:57

不错，不错，学习了，，，

austere · 发表于 2014-7-25 17:10:29

太厉害了~~ 顶一个~

oceanwind · 发表于 2017-6-18 12:43:38

刚好想作一个无标题栏的窗口，谢谢楼主。

oceanwind · 发表于 2017-6-18 12:43:41

刚好想作一个无标题栏的窗口，谢谢楼主。

adlyx1999 · 发表于 2019-1-15 04:50:53

学习学习看看

120268323 · 发表于 2019-5-18 19:32:54

挺厉害
支持一下
向老师学习啦

smooth · 发表于 2019-12-11 16:57:42

有点意思，刚测试了一下效果，还是不错的，MARK一下先。

		自动登录	找回密码
密码			加入

[插件] 隐藏窗体最上工具条（$WS_POPUP）后，还可以使用鼠标移动窗体

评分