Снять выделение с текста в поле Edit

[vovsla]

При создании поля "Edit" с текстом весь текст получается выделенным.
Как автоматически снять выделение?

#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
Opt("GUIOnEventMode", 1)
#Region ### START Koda GUI section ### Form=C:\1.kxf
$Form1 = GUICreate("Form1", 615, 438, 192, 124)
GUISetOnEvent($GUI_EVENT_CLOSE, "Form1Close")
$Edit1 = GUICtrlCreateEdit("", 168, 160, 185, 89)
GUICtrlSetData(-1, "Edit1")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
	Sleep(100)
WEnd

Func Form1Close()

EndFunc

 

[MnM]

Vovsla

#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
Opt("GUIOnEventMode", 1)
$Form1 = GUICreate("Form1", 615, 438, 192, 124)
GUISetOnEvent($GUI_EVENT_CLOSE, "Form1Close")
$Edit1 = GUICtrlCreateEdit("", 168, 160, 185, 89)
GUICtrlSetData(-1, "Edit1")
GUISetState(@SW_SHOW)
GUICtrlSendMsg($Edit1,$em_setsel,-1,-1)
While 1
    Sleep(100)
WEnd
Func Form1Close()
	Exit
EndFunc

GUICtrlSendMsg добавлять после вырисовки окна, а то эффекта не будет

 

[vovsla]

Так фокус переносится на поле "Edit".
Можно снять выделения без переноса фокуса?

 

[madmasles]

Vovsla,
Так тоже можно.

#include <GUIConstantsEx.au3>

GUICreate('Test', 200, 100)
$nEdit = GUICtrlCreateEdit('Edit no focus', 10, 10, 180, 80)
GUICtrlSetState(GUICtrlCreateLabel('', 0, 0), BitOR($GUI_HIDE, $GUI_FOCUS))
GUISetState()

While 1
	Switch GUIGetMsg()
		Case $GUI_EVENT_CLOSE
			Exit
	EndSwitch
WEnd

 

[vovsla]

Спасибо

 

[AZJIO]

Мои два варианта:
1. Выслать Send (но не солидно, мой старый вариант)
2. Вставить данные после отображения элемента.

$hGui = GUICreate('My Program', 250, 260)
$Edit = GUICtrlCreateEdit("", 18, 10, 185, 89)
GUISetState()
; Send('{Home}')
GUICtrlSetData(-1, "Edit1")
Do
Until GUIGetMsg() = -3