测试过,不好用啊。
要么是我没有理解对,要么就方法还不是最好的。
代码如下:GUIRegisterMsg(0x0216, "_MoveGui")
Global $fGui = GUICreate("Search", 600, 600, -1, -1, BitOR(0x80880000, 0x00000200)) ;创建主窗口
Global $zGui = GUICreate("", 300, 300 , 0, 0, BitOR(0x10000000,0x40000000), -1, $fGui) ;创建子窗体
GUISetBkColor(0xF9E029, $zGui) ;设置子窗体的默认背景色
GUICtrlSetDefBkColor(0x990000, $zGui) ;设置头部子窗体中所有控件的默认背景色
GUICtrlSetDefColor(0xFFFFFF, $zGui) ;设置头部子窗体中所有控件的默认字体颜色
Global $MYGUI_HEAD_LABEL = GUICtrlCreateLabel("托这里", 100, 135, 100 , 30, BitOR(0x01, 0x0200), 0x00100000) ;创建可拖动标签
GUISetState(@SW_SHOW, $fGui)
GUISetState(@SW_SHOW, $zGui)
While 1
$MSG = GUIGetMsg()
If $MSG = -3 Then ExitLoop
WEnd
Func _MoveGui()
$zPosMsg = WinGetPos($zGui,"")
WinMove($fGui, "", $zPosMsg[0] - 1, $zPosMsg[1] - 1)
$fPosMsg = WinGetPos($fGui,"")
WinMove($zGui, "", 0, 0)
EndFunc
|