控件提示

#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
}

给TA捐赠
共{{data.count}}人
人已捐赠
其他案例

Google划词翻译

2021-3-1 8:57:32

其他案例

学习AutohotkH V2:生成 QuickSearch 可用的数据文件

2021-3-3 15:37:47

5 条回复 A文章作者 M管理员
  1. hexuren

    不错!新轮子

  2. ppopcn

    很不错哦

  3. redoceans

    其实轮子是什么意思,现在我还不太明白。

个人中心
购物车
优惠劵
有新私信 私信列表
搜索