А я правильно понимаю, что HookProc гасит системную подсказку "Закрыть"?
Правильно.
]]>И ещё в функции HookProc() лучше использовать WinHide вместо WinClose, иначе системная подсказка вообще больше не появится в этой сессии ни над каким объектом.
А я правильно понимаю, что HookProc гасит системную подсказку "Закрыть"? Что-то тяжело даётся понимание кода, полное незнание WinApi вводит в ступор.
Попытался сам сделать задуманное:
global PrControl
, Help_OK := "Подсказка для кнопки OK"
, Help_Cancel := "Подсказка для кнопки Cancel"
, Help_NC_20 := "Подсказка для кнопки Закрыть"
, Help_NC_8 := "Подсказка для кнопки Свернуть"
Gui, Add, Button, y100, Cancel
Gui, Add, Button, x+20 yp wp, OK
Gui, Show
OnMessage(0x200, "WM_MOUSEMOVE")
OnMessage(0xA0, "WM_NCMOUSEMOVE")
OnMessage(0x2A2, "MOUSELEAVE")
return
MOUSELEAVE() {
ToolTip % PrControl := ""
}
WM_MOUSEMOVE() {
If (A_GuiControl <> PrControl)
{
PrControl := A_GuiControl
ToolTip, % Help_%PrControl%
}
}
WM_NCMOUSEMOVE(wp) {
If (PrControl <> "NC_" wp)
{
PrControl := "NC_" wp
ToolTip, % Help_%PrControl%
}
}
GuiClose:
ExitApp
на сравнении, хотел бы понять хотя-бы функциональные различия.
]]>global WM_NCMOUSELEAVE := 0x2A2, WM_NCMOUSEMOVE := 0xA0, WM_MOUSEMOVE := 0x200, WM_MOUSELEAVE := 0x2A3
, HTCLOSE := 20, HWINEVENTHOOK, HookProcAdr, EVENT_OBJECT_SHOW := 0x8002, hButton1, hButton2
Gui, Add, Button, x165 y167 w60 h23 hwndhButton1, Cancel
Gui, Add, Button, x230 y167 w60 h23 hwndhButton2, OK
Gui, Show, w300 h200
HookProcAdr := RegisterCallback("HookProc", "F" )
OnMessage(WM_NCMOUSEMOVE, "NonClientAreaMessages")
OnMessage(WM_NCMOUSELEAVE, "NonClientAreaMessages")
OnMessage(WM_MOUSEMOVE, "ClientAreaMessages")
OnMessage(WM_MOUSELEAVE, "ClientAreaMessages")
return
GuiClose:
ExitApp
NonClientAreaMessages(wp, lp, msg, hwnd)
{
if (msg = WM_NCMOUSEMOVE)
{
if (wp = HTCLOSE)
{
if !HWINEVENTHOOK
ToolTipShow("Подсказка для кнопки Close", 1)
}
else if HWINEVENTHOOK
ToolTipDestroy(1)
}
else if (HWINEVENTHOOK && msg = WM_NCMOUSELEAVE)
ToolTipDestroy(1)
}
ClientAreaMessages(wp, lp, msg, hwnd)
{
static ToolTipExist
if (msg = WM_MOUSEMOVE)
{
if (hwnd = hButton1 && !ToolTipExist)
ToolTip, Подсказка для кнопки Cancel,,, % ToolTipExist := 1
else if (hwnd = hButton2 && !ToolTipExist)
ToolTip, Подсказка для кнопки OK,,, % ToolTipExist := 1
else if (hwnd !~= (hButton1 "|" hButton2) && ToolTipExist)
ToolTip, % ToolTipExist := "",,, 1
}
else if (msg = WM_MOUSELEAVE)
ToolTip, % ToolTipExist := "",,, 1
}
ToolTipShow(Text, N)
{
HWINEVENTHOOK := SetWinEventHook(EVENT_OBJECT_SHOW, EVENT_OBJECT_SHOW, 0, HookProcAdr, 0,0,0)
ToolTip, % Text,,, N
}
ToolTipDestroy(N)
{
DllCall("UnhookWinEvent", Ptr, HWINEVENTHOOK), HWINEVENTHOOK := ""
ToolTip,,,, N
}
HookProc(hWinEventHook, event, hwnd, idObject, idChild, dwEventThread, dwmsEventTime)
{
WinGetClass, Class, ahk_id %hwnd%
if (Class = "#32774")
WinHide, ahk_id %hwnd%
}
SetWinEventHook(eventMin, eventMax, hmodWinEventProc, lpfnWinEventProc, idProcess, idThread, dwFlags)
{
return DllCall("SetWinEventHook" , UInt, eventMin
, UInt, eventMax
, Ptr, hmodWinEventProc
, Ptr, lpfnWinEventProc
, UInt, idProcess
, UInt, idThread
, UInt, dwFlags, Ptr)
}global WM_NCMOUSELEAVE := 0x2A2, WM_NCMOUSEMOVE := 0xA0, WM_MOUSEMOVE := 0x200, WM_MOUSELEAVE := 0x2A3
, HTCLOSE := 20, HWINEVENTHOOK, HookProcAdr, EVENT_OBJECT_SHOW := 0x8002, hButton
Gui, Add, Button, x230 y167 w60 h23 hwndhButton, OK
Gui, Add, Button, x2 y1 w60 h23 hwndhButton1, OK
Gui, Show, w300 h200
HookProcAdr := RegisterCallback("HookProc", "F" )
OnMessage(WM_NCMOUSEMOVE, "MonitorMessage")
OnMessage(WM_NCMOUSELEAVE, "MonitorMessage")
OnMessage(WM_MOUSEMOVE, "MonitorMessage")
OnMessage(WM_MOUSELEAVE, "MonitorMessage")
return
MonitorMessage(wp, lp, msg, hwnd)
{
static ToolTip
if (msg = WM_NCMOUSEMOVE)
{
if (wp = HTCLOSE)
{
if !HWINEVENTHOOK
ToolTipShow("Сохранить и выйти", 10)
}
else if HWINEVENTHOOK
ToolTipDestroy(10)
}
else if (HWINEVENTHOOK && msg = WM_NCMOUSELEAVE)
ToolTipDestroy(10)
if (msg = WM_MOUSEMOVE && hwnd = hButton && !ToolTip)
ToolTip, Подсказка для кнопки,,, % ToolTip := 9 ;%
else if (msg = WM_MOUSEMOVE && hwnd = hButton1 && !ToolTip)
ToolTip, Подсказка для кнопки 1,,, % ToolTip := 9 ;%
else if (ToolTip && (hwnd != hButton || msg = WM_MOUSELEAVE))
ToolTip, % ToolTip := "",,, 9 ;%
}
ToolTipShow(Text, N)
{
HWINEVENTHOOK := API_SetWinEventHook(EVENT_OBJECT_SHOW, EVENT_OBJECT_SHOW, 0, HookProcAdr, 0,0,0)
ToolTip, % Text,,, N ;%
}
ToolTipDestroy(N)
{
DllCall("UnhookWinEvent", Ptr, HWINEVENTHOOK), HWINEVENTHOOK := ""
ToolTip,,,, N
}
HookProc(hWinEventHook, event, hwnd, idObject, idChild, dwEventThread, dwmsEventTime)
{
WinGetClass, Class, ahk_id %hwnd%
if (Class = "#32774")
WinClose, ahk_id %hwnd%
}
API_SetWinEventHook(eventMin, eventMax, hmodWinEventProc, lpfnWinEventProc, idProcess, idThread, dwFlags)
{
return DllCall("SetWinEventHook" , UInt, eventMin
, UInt, eventMax
, Ptr, hmodWinEventProc
, Ptr, lpfnWinEventProc
, UInt, idProcess
, UInt, idThread
, UInt, dwFlags, Ptr)
}А как к кнопке сделать появляющуюся подсказку?
global WM_NCMOUSELEAVE := 0x2A2, WM_NCMOUSEMOVE := 0xA0, WM_MOUSEMOVE := 0x200, WM_MOUSELEAVE := 0x2A3
, HTCLOSE := 20, HWINEVENTHOOK, HookProcAdr, EVENT_OBJECT_SHOW := 0x8002, hButton
Gui, Add, Button, x230 y167 w60 h23 hwndhButton, OK
Gui, Show, w300 h200
HookProcAdr := RegisterCallback("HookProc", "F" )
OnMessage(WM_NCMOUSEMOVE, "MonitorMessage")
OnMessage(WM_NCMOUSELEAVE, "MonitorMessage")
OnMessage(WM_MOUSEMOVE, "MonitorMessage")
OnMessage(WM_MOUSELEAVE, "MonitorMessage")
return
GuiClose:
ExitApp
MonitorMessage(wp, lp, msg, hwnd)
{
static ToolTip
if (msg = WM_NCMOUSEMOVE)
{
if (wp = HTCLOSE)
{
if !HWINEVENTHOOK
ToolTipShow("Сохранить и выйти", 10)
}
else if HWINEVENTHOOK
ToolTipDestroy(10)
}
else if (HWINEVENTHOOK && msg = WM_NCMOUSELEAVE)
ToolTipDestroy(10)
if (msg = WM_MOUSEMOVE && hwnd = hButton && !ToolTip)
ToolTip, Подсказка для кнопки,,, % ToolTip := 9
else if (ToolTip && (hwnd != hButton || msg = WM_MOUSELEAVE))
ToolTip, % ToolTip := "",,, 9
}
ToolTipShow(Text, N)
{
HWINEVENTHOOK := SetWinEventHook(EVENT_OBJECT_SHOW, EVENT_OBJECT_SHOW, 0, HookProcAdr, 0,0,0)
ToolTip, % Text,,, N
}
ToolTipDestroy(N)
{
DllCall("UnhookWinEvent", Ptr, HWINEVENTHOOK), HWINEVENTHOOK := ""
ToolTip,,,, N
}
HookProc(hWinEventHook, event, hwnd, idObject, idChild, dwEventThread, dwmsEventTime)
{
WinGetClass, Class, ahk_id %hwnd%
if (Class = "#32774")
WinClose, ahk_id %hwnd%
}
SetWinEventHook(eventMin, eventMax, hmodWinEventProc, lpfnWinEventProc, idProcess, idThread, dwFlags)
{
return DllCall("SetWinEventHook" , UInt, eventMin
, UInt, eventMax
, Ptr, hmodWinEventProc
, Ptr, lpfnWinEventProc
, UInt, idProcess
, UInt, idThread
, UInt, dwFlags, Ptr)
}Надо ещё проверить, не остаётся ли ToolTip, если резко убрать курсор с кнопки за пределы окна. Если остаётся, нужно ещё дополнительно убивать с помощью таймера. Но у меня, вроде, нормально и так.
]]>Можно создать окно вообще без заголовка, нарисовать кнопки (и, если необходимо, заголовок) самостоятельно.
А как к кнопке сделать появляющуюся подсказку?
]]>global WM_NCMOUSELEAVE := 0x2A2, WM_NCMOUSEMOVE := 0xA0, HTCLOSE := 20
, HWINEVENTHOOK, HookProcAdr, EVENT_OBJECT_SHOW := 0x8002
Gui, Show, w300 h200
HookProcAdr := RegisterCallback("HookProc", "F" )
OnMessage(WM_NCMOUSEMOVE, "MonitorMessage")
OnMessage(WM_NCMOUSELEAVE, "MonitorMessage")
return
GuiClose:
ExitApp
MonitorMessage(wp, lp, msg)
{
if (msg = WM_NCMOUSEMOVE)
{
if (wp = HTCLOSE)
{
if !HWINEVENTHOOK
{
HWINEVENTHOOK := API_SetWinEventHook(EVENT_OBJECT_SHOW, EVENT_OBJECT_SHOW, 0, HookProcAdr, 0,0,0)
ToolTip Сохранить и выйти,,, 10
}
}
else
{
DllCall("UnhookWinEvent", Ptr, HWINEVENTHOOK), HWINEVENTHOOK := ""
ToolTip,,,, 10
}
}
else if (msg = WM_NCMOUSELEAVE)
{
DllCall("UnhookWinEvent", Ptr, HWINEVENTHOOK), HWINEVENTHOOK := ""
ToolTip,,,, 10
}
}
HookProc(hWinEventHook, event, hwnd, idObject, idChild, dwEventThread, dwmsEventTime)
{
WinGetClass, Class, ahk_id %hwnd%
if (Class = "#32774")
WinClose, ahk_id %hwnd%
}
API_SetWinEventHook(eventMin, eventMax, hmodWinEventProc, lpfnWinEventProc, idProcess, idThread, dwFlags)
{
return DllCall("SetWinEventHook" , UInt, eventMin
, UInt, eventMax
, Ptr, hmodWinEventProc
, Ptr, lpfnWinEventProc
, UInt, idProcess
, UInt, idThread
, UInt, dwFlags, Ptr)
}