[GUI]控件上显示提示信息

; 示例: 当鼠标移动到控件上，显示帮助提示
Gui, Add, Edit, vMyEdit
MyEdit_TT := "这是一个为 MyEdit 控件显示的提示"

Gui, Show
OnMessage(0x200, "WM_MOUSEMOVE")
return

WM_MOUSEMOVE()
{
	static CurRControl, PrevControl, _TT ; _TT 在下面的TooTip中用到
	CurRControl := A_GuiControl
	if (CurRControl <> PrevControl and not InStr(CurRControl, " "))
	{
		ToolTip ; 关闭之前的 ToolTip.
		SetTimer, DisplayToolTip, 1000
		PrevControl := CurRControl
	}
	return
DisplayToolTip:
	SetTimer, DisplayToolTip, Off
	ToolTip % %CurRControl%_TT ; 第一个百分号表示后面是一个表达式
	SetTimer, RemoveToolTip, 3000
return
RemoveToolTip:
	SetTimer, RemoveToolTip, Off
	ToolTip
return
}
GuiClose:
	ExitApp