控件提示

#SingleInstance FORCE
#Persistent
SetBatchLines, -1
global AE_提示:=[]
Gui, font, ,Arial
loop, 10
{
	; 使用Hwnd把控件句柄保存到变量ID
	Gui, Add, CheckBox, HwndID, 控件%A_Index%
	AE_提示[ID]:="这是控件" A_Index
}
Gui, Show,w200
return

Esc::ExitApp

HS_提示(参数:="")
{
	global AE_提示
	static HS_提示 := Func("HS_提示").Bind("清除")
	static AE_监听 := OnMessage(0x200, "HS_提示")
	static ProcessID := DllCall("GetCurrentProcessId")
	if WinActive("ahk_pid" ProcessID)
	{
		MouseGetPos,,,,HWND, 2
		ToolTip, % AE_提示[HWND]
		; 防止某些特殊情况ToolTip不消失(比如在显示的时候隐藏了界面)
		; 用计时器500ms后清除一次ToolTip
		SetTimer, %HS_提示%, -500
	}
	if (参数="清除")
		ToolTip
}