How to detect keypress event and on a gui control in AutoHotkey v2 Topic is solved

[fwejifjjwk2]

I try to write 2 gui function. I search this topic on web and document but hard to find resource.
1. Press Escape key close GUI
2. Press Enter key search user input text (maybe I should use inputbox...) or appendfile. (in main_gui do nothing in search_gui search input text ...)

I already try something in below.

Code: Select all

; with bug
SetWorkingDir A_ScriptDir
#SingleInstance
; AutoHotkey v2
q::
{
Gui := GuiCreate()
Gui.Opt("+LastFound +AlwaysOnTop -SysMenu +ToolWindow -caption +Border +Owner")
Gui.BackColor := "EEAA99"
ref1 := Gui.Add("Edit", "r1 vMyEdit w180", "")
ref1.SetFont("cBlue")
Gui.Show()

ref1.OnEvent('Change', 'Findus')
Findus(GuiCtrlObj, Info) {
	if (GuiCtrlObj.Value == "key ") ; with space
	{
	gui_keyDetect()
	GuiCtrlObj.Gui.Destroy()
	}
	else if (GuiCtrlObj.Value == "exit")
	{
	GuiCtrlObj.Gui.Destroy()
	ExitApp()
	}
	else if (GuiCtrlObj.Value == "reload")
	{
		Reload
	}
	else if (GuiCtrlObj.Value == "search")
	{
	gui_search("search title")
	GuiCtrlObj.Gui.Destroy()
	}
	}
}

gui_search(guiTitle) {
myGui := GuiCreate()
myGui.AddText("", guiTitle)
ref1 := myGui.Add("Edit", "r1 vMyEdit w180", "")
myGui.Show()
ref1.OnEvent('Change', 'Findus')
Findus(GuiCtrlObj, Info) {
	; how to search when press enter
	userInput := GuiCtrlObj.Value
	; Run "http://www.google.com/search?q=" userInput
	}
}

gui_keyDetect() {
Gui2 := GuiCreate()
ref2 := Gui2.Add("Hotkey", "vChosenHotkey")
Gui2.Show()

ref2.OnEvent('Change', 'keyDetect')
keyDetect(GuiCtrlObj, Info) {
	; Esc::GuiCtrlObj.Gui.Destroy() ; didn't work
	if (GuiCtrlObj.Value = "{Escape}") ; didn't work
	{
		GuiCtrlObj.Gui.Destroy()
	}
	else if (GuiCtrlObj.Value = "Escape") ; didn't work
	{
		GuiCtrlObj.Gui.Destroy()
	}
	else if (GuiCtrlObj.Value = "Esc") ; didn't work
	{
		GuiCtrlObj.Gui.Destroy()
	}
	else if (GuiCtrlObj.Value = "w") ; works
	{
		msgbox("you press w key")
	}
}
}

[swagfag]

just make context sensitive hotkeys

Code: Select all

#If WinActive(Gui.Hwnd)
Esc::Gui.Destroy()

[fwejifjjwk2]

@swagfag
Thanks. I spend so many time on this issue.
But how to detect Enter key in different gui run different function? e.g. searhing or appendfile.
But in ref2 GUI it can't choic given GUI. Should I use detect GUI exist or have orther method like v1's method.

[swagfag]

different guis should have different distinct hwnds, so that shouldnt be a problem

u can also check whether a certain control is focused, stuff like that

[fwejifjjwk2]

@swagfag
Thanks.But when GUI not active ESC key still try to do Gui.Destroy() and make some error.
I try to use different GUI hwnds but not working.
I use variable with state decide action.

Code: Select all

gui_sate := 1
#if (gui_sate == 1)
Esc::
{
	Gui.Destroy()
	gui_sate := 0
}
#If

I would think about use detect GUI ( not familiar with ) or another method close GUI (not use keybinding)

[Ragnar]

For number 1, you can use something like the following:

Code: Select all

Gui.OnEvent("Escape", (this) => this.Hide())

[fwejifjjwk2]

@Ragnar
Thanks. It works. Right now I use it close 3 different GUI works pretty fine.

Code: Select all

Gui.OnEvent("Escape", (this) => this.Hide()) ; in !q hotkey
Gui2.OnEvent("Escape", (this) => this.Hide()) ; in gui_keyDetect()
myGui.OnEvent("Escape", (this) => this.Hide()) ; in gui_search(guiTitle)

[Ragnar]

For number 2: The edit control triggers the default button of the GUI if you press ENTER, so you can use something like the following:

Code: Select all

MyBtn := Gui.Add("Button", "Default Hidden")
MyBtn.OnEvent("Click", "MyBtn_Click")

MyBtn_Click(*)
{
    global ref1
    MsgBox ref1.Value
}

[fwejifjjwk2]

@Ragnar
@swagfag
Thanks.

[swagfag]

ure doing something wrong then.

Code: Select all

G := GuiCreate()
G.Show('w200 h200')

#If WinActive(G.Hwnd)
Esc::G.Destroy()

performs exactly as one would expect

[fwejifjjwk2]

@swagfag
In this script (show below). When script not active any GUI. Press Escape still active Gui.Destroy().
And when it under Gui.Show() needed add Return or when GUI shows up it will close automatic.

Code: Select all

; with bug
q::
{
Gui := GuiCreate()
Gui.Opt("+LastFound +AlwaysOnTop -SysMenu +ToolWindow -caption +Border +Owner")
Gui.BackColor := "EEAA99"
ref1 := Gui.Add("Edit", "r1 vMyEdit w180", "")
ref1.SetFont("cBlue")
Gui.Show()
Return
}
Return

; when GUI not show no Gui.Hwnd
3::msgbox(Gui.Hwnd)

#If WinActive(Gui.Hwnd)
Esc::Gui.Destroy()
#If

[swagfag]

thats not what happens. if the gui(a pinkish edit box) isnt the active window, pressing Escape does nothing.
if the gui is the active window, pressing Escape destroys it(the pinkish gui)

And when it under Gui.Show() needed add Return or when GUI shows up it will close automatic.

so much is a given. hotkey subroutines execute top to bottom until the first (explicit/implicit) return is encountered

[fwejifjjwk2]

thats not what happens. if the gui(a pinkish edit box) isnt the active window, pressing Escape does nothing.

I know it will from top to buttom but I think maybe keybinding shouldn't detect b because it seens always true.
In my post script will show error. Your post code in my computer works fine.
In my computer Escape will try to close GUI even GUI not active. Maybe my AutoHotkey v2 complie have some problem?

Error message

Code: Select all

Error: The Gui is destroyed.
Line#
002: SetWorkingDir(A_ScriptDir)

[swagfag]

i couldnt possibly tell. i ran it with the latest version available - a108. i can only suggest u try doing the same

ur script, as is

[swagfag]

thats on repeated keypresses after the gui has been already destroyed once and not yet recreated. u can(in order of most recommended to least recommended):

• not destroy/create the gui every time, but hide/show it
• store the hwnd in a variable instead

  Code: Select all

  #if winactive(hwnd)
  ...
  ...
  gui := guicreate()
  hwnd := gui.hwnd
  ...

• catch the exception

  Code: Select all

  #if trywinactive(gui.hwnd)
  
  trywinactive(args*) {
  	try
  		return winactive(args*)
  	catch
  		return false
  }

i vote for #1

[fwejifjjwk2]

@swagfag
It works. I got what you mean. In this method we not active GUI won't active keybinding.

Code: Select all

q::
{
Gui := GuiCreate()
Gui.Opt("+LastFound +AlwaysOnTop -SysMenu +ToolWindow -caption +Border +Owner")
Gui.BackColor := "EEAA99"
ref1 := Gui.Add("Edit", "r1 vMyEdit w180", "")
ref1.SetFont("cBlue")
hwnd1 := Gui.hwnd
Gui.Show()
}
Return

#if winactive(hwnd1)
hwnd1 := Gui.hwnd
Esc::ToolTip("active")
#if