[Creat0R]

было бы неплохо если сразу бы без кнопки в начало переходил »

Код:

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

$hGUI = GUICreate("Test Script", 300, 200)

$iInput = GUICtrlCreateInput("", 20, 30, 100, 20)

GUISetState(@SW_SHOW, $hGUI)
GUIRegisterMsg($WM_COMMAND, "WM_COMMAND")

GUICtrlSetData($iInput, "Ну очень, очень длинный текст здесь находится", 1)

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

Func WM_COMMAND($hWnd, $nMsg, $wParam, $lParam)
    Local $nNotifyCode = BitShift($wParam, 16)
    Local $nID = BitAND($wParam, 0xFFFF)
    Local $hCtrl = $lParam

    Switch $nID
        Case $iInput
            Switch $nNotifyCode
                Case $EN_CHANGE, $EN_UPDATE
                    GUICtrlSendMsg($iInput, $EM_SETSEL, 0, 0)
            EndSwitch
    EndSwitch

    Return $GUI_RUNDEFMSG
EndFunc