[已解决]如何让鼠标点击GUICtrlCreateInput时内置的信息自动消失？

smooth · 发表于 2014-11-23 21:34:41

本帖最后由 smooth 于 2015-2-25 15:35 编辑

如何让鼠标点击GUICtrlCreateInput时内置的信息自动消失？而当鼠标离开后若没有输入任何内容时，又恢复默认的信息？谢谢！

user3000 · 发表于 2014-11-24 18:06:08

回复 1# smooth

#include <WindowsConstants.au3>
#include <EditConstants.au3>

Local $sDefault = "默认值"
GUICreate('TEST', 420, 200)
$Input = GUICtrlCreateInput($sDefault, 10, 15, 400, 23)
$Edit =  GUICtrlCreateEdit('', 10, 50, 400, 140)
GUISetState()
GUIRegisterMsg($WM_COMMAND, "MY_WM_COMMAND")
Do
Until GUIGetMsg() == -3

Func MY_WM_COMMAND($hWnd, $msg, $wParam, $lParam)
        Local $nCode = BitShift($wParam, 16)
        Local $ID = BitAND($wParam, 0x0000FFFF)
                If $ID <>  $Input Then Return
        If $nCode = $EN_KILLFOCUS Then
                   If GUICtrlRead($Input) == '' Then GUICtrlSetData($Input, $sDefault)
            ElseIf $nCode = $EN_SETFOCUS Then
                   GUICtrlSetData($Input, '')
        EndIf
EndFunc

chzj589 · 发表于 2014-11-24 19:28:16

回复 2# user3000

谢谢，又学习了。但感觉把排列对换一下会好一点，不知是什么原因？

$Input = GUICtrlCreateInput($sDefault, 10, 15, 400, 23)
$Edit = GUICtrlCreateEdit('', 10, 50, 400, 140)

$Edit = GUICtrlCreateEdit('', 10, 50, 400, 140)
$Input = GUICtrlCreateInput($sDefault, 10, 15, 400, 23)

vigiles · 发表于 2014-11-26 18:02:05

回复 2# user3000

能否在事件模式下实现？

user3000 · 发表于 2014-11-26 18:27:46

回复 4# vigiles

这问题可以自己尝试下,比发问更有体会.

netegg · 发表于 2014-11-27 08:50:12

回复 2# user3000
为什么要建立两个控件

user3000 · 发表于 2014-11-27 18:07:51

回复 6# netegg

老大,没什么特殊缘由.随手改的代码;这样又方便转移输入焦点.

smooth · 发表于 2014-12-6 21:30:37

回复 2# user3000

这样有点问题，弹出界面后，当鼠标一开始就点击这个GUICtrlCreateInput时，默认的信息无法自动消失。只有当鼠标点到别的地方，然后再点GUICtrlCreateInput时，才有那样的效果。

user3000 · 发表于 2014-12-6 21:53:49

回复 8# smooth

应该就是3楼说的重新排列一下会"更好"的原因了,像那样先创建EDIT控件,输入焦点就会在其上.
也可以创建完控件后再设置输入焦点:

;#include <GUIConstantsEx.au3>
;.............
;GUICtrlSetState($Edit, $gui_focus)

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

[AU3基础] [已解决]如何让鼠标点击GUICtrlCreateInput时内置的信息自动消失？

相关帖子