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

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

本帖最后由 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 == $Form1 Then ;and $nMsg == $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
                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一下先。
页: [1]
查看完整版本: 隐藏窗体最上工具条（$WS_POPUP）后，还可以使用鼠标移动窗体