论坛 › 已解决问题区 › 关于文本控件获取焦点即全选中的BUG【已解决】

xyold1 发表于 2011-2-4 20:55:56

回复 15# menfan1

谢谢，不只是少了endif
当鼠标在输入框控件上时，只能输入一个字符，愁啊

xyold1 发表于 2011-2-4 21:01:34

修改了一下
窗体中如果有组合框的话，要过滤一下

Opt('GUIOnEventMode', 1)
#AutoIt3Wrapper_Run_Debug_Mode=Y
GUICreate('窗口')
GUISetOnEvent(-3, '_Exit')
#include <GUIConstantsEx.au3>
#include <GuiEdit.au3>
#include <GuiStatusBar.au3>
#include <GuiConstantsEx.au3>
#include <WindowsConstants.au3>

$Input1 = GUICtrlCreateEdit('这个点击即全选', 50, 50, 200, 20,BitOR($ES_WANTRETURN, $WS_VSCROLL))
$hInput1 = GUICtrlGetHandle(-1)
$Input2 = GUICtrlCreateInput('这个点击即全选', 50, 110, 200, 20)
$hInput2 = GUICtrlGetHandle(-1)
GUICtrlCreateInput('这个不会全选，点哪是哪', 50, 80, 200, 20)

GUISetState()
GUIRegisterMsg(0x0111, 'WM_COMMAND')
;~ GUISetOnEvent($GUI_EVENT_PRIMARYUP, "SpecialEvents")

While 1
      Sleep(100)
WEnd
Func SpecialEvents()
$a = GUIGetCursorInfo()
If Not @error And $a<>0 Then
GUICtrlSetState($a, 256)
EndIf

EndFunc

Func _Exit()
      Exit
EndFunc   ;==>_Exit

Func WM_COMMAND($hWnd, $iMsg, $iwParam, $ilParam)
      $a = GUIGetCursorInfo()
If Not @error And $a<>0 Then
If $a Then
GUICtrlSetState($a, 256)
EndIf
      EndIf

EndFunc   ;==>WM_COMMAND

查看完整版本: 关于文本控件获取焦点即全选中的BUG【已解决】