How to set attention to input box and activate on Enter.

[tommytx]

Can someone help me with this code... I got all of it working with exception of 2 things.

1. Upon loading I want to set the cursor in the input box ready to type.

2. add the additional method of submit by hitting enter to submit also as speed is improtant.

Thanks I am sure this is a piece of cake for most of you pros.. if you need to see an image which I doubt just place any image named image\image.jpg width=300 and height=70 .. but you should not need that.... Thanks...

expandcollapse popup

#include <GUIConstants.au3>
#include <WindowsConstants.au3>
#include <WinAPI.au3>
#include <SendMessage.au3>

Global Const $SC_DRAGMOVE = 0xF012
$title=""
$width  = 330
$height = 130
$left   = 600
$top    = 100
$gui = GUICreate($title, $width, $height, $left, $top, $WS_POPUP)
GUISetBkColor(0xE0FFFF)
$n = GUICtrlCreatePic(@ScriptDir & "\image\image.jpg", 10, 10, 310, 75)
GUISetState()
$title=""
$width  = 200
$height = 20
$left   = 10
$top    = 95
$str = GUICtrlCreateInput($title, $left, $top, $width, $height)
$title="Submit"
$width  = 80
$height = 20
$left   = 240
$top    = 95
$press=GUICtrlCreateButton($title, $left, $top, $width, $height)

_WinAPI_SetLayeredWindowAttributes($gui, 0x01, 255)
GUISetState(@SW_SHOW)
While 1
Switch GUIGetMsg()
Case $GUI_EVENT_MINIMIZE
    GUISetState(@SW_RESTORE)
Case $press
MsgBox(4096, "No Drag Drop.", GUICtrlRead($str))
Exit
Case $GUI_EVENT_PRIMARYDOWN
_SendMessage($gui, $WM_SYSCOMMAND, $SC_DRAGMOVE, 0)
EndSwitch
WEnd

[Kyan]

ControlFocus ($gui, "", $str)

I don't read all the topic, if you want to send something use ControlSend

[Melba23]

tommytx,

Add these lines between the GUISetState and While lines:

; Set the keyboard focus to the input
GUICtrlSetState($str, $GUI_FOCUS)

; Set an accelerator key - ENTER will fire $press
Local $aAccelKeys[1][2] = [["{ENTER}", $press]]
GUISetAccelerators($aAccelKeys)

Look at the functions in the Help file and ask if you still have questions.

M23

[tommytx]

Thanks Diogo.. that worked great for the first question.. the attention to the input box...

I just thought of a way to do item 2. Make the input box submit when enter is hit also.. Not sure if its the correct or best way but here it is.. If anyone has a simpler or better idea please chime in.. meantime this will work.. but I doubt its the official Autoit way...anyway see it below...

<

HotKeySet("{ENTER}", "Submit")

Func Submit()

MsgBox(4096, "No Drag Drop.", GUICtrlRead($str))

Exit

EndFunc

>

[Melba23]

tommytx,

Take a look at my post above - you were close but Accelerator keys work better for this sort of thing as they are only active when your GUI is active.

Making an input fire on an ENTER key press is not as easy as you might think, but it can be done - search the forum.

M23

[tommytx]

Thanks for that Melba, you are right.. the Accelerator works much better... can you tell me how to Dim this so I can add it to my Dim's at the top of the page.. Since it would not work till I place it far down into the code... how do i add the sucker to my Dim

maybe like this.. Dim $aAccelKeys or Dim $aAccelKeys[][] etc?

Then just use this down later... $aAccelKeys[2][2]=[["{ENTER}", $press]

When I put it toward the top it did not work...

_WinAPI_SetLayeredWindowAttributes($gui, 0x01, 255)

GUISetState(@SW_SHOW)

Dim $aAccelKeys[2][2]=[["{ENTER}", $press]

GUISetAccelerators($aAccelKeys)

[tommytx]

Oh.. DiGo can you tell me what to add to keep this GUI always on top... Thanks..

[Melba23]

tommytx,

You just need to declare the name at the top of the script - no need for [ ][ ]:

Global $aAccelKeys

Do not use Dim - it is essentially deprecated. The Variables - using Global, Local and ByRef tutorial in the Wiki explains why.

As to keeping the GUI on top - either use the $WS_EX_TOPMOST style or the WinSetOnTop function.

M23