Gui, +0x40000000 -0x80000000 ; Add WS_CHILD, remove WS_POPUP
If !WinExist("ahk_class Notepad")
{
Run, Notepad,,, PID
WinWait, ahk_pid %PID%
}
hNotepad := WinExist("ahk_class Notepad")
ControlGet, hEdit1, Hwnd, , Edit1, ahk_id %hNotepad%
Gui, Add, Edit, w111 h111 x111 y111 HWNDh_Edit, Edit
DllCall("SetParent", "uint", h_Edit, "uint", hEdit1)
WinActivate
Return
Возможно ли разместить в родителе своё окно, чтобы можно было им полноценно пользоватся, активировать, перемещать, изменять размер, вводить текст, но чтобы при этом не деактивировалось родительское?
If !WinExist("ahk_class Notepad")
{
Run, Notepad,,, PID
WinWait, ahk_pid %PID%
}
hNotepad := WinExist("ahk_class Notepad")
ControlGet, hEdit1, Hwnd, , Edit1, ahk_id %hNotepad%
Gui, +AlwaysOnTop -DPIScale +HWNDhWin +ReSize
Gui, Add, Edit, w222 h222 x1 y1
DllCall("SetParent", "uint", hWin, "uint", hEdit1)
Gui, Show, na w222 h222 x111 y111, % " "
WinActivate
Return
Проще сделать его как то прозрачным где надо.
Не знаю как ещё.
#SingleInstance Force
#Persistent
#NoEnv
ListLines Off
DetectHiddenWindows, On
SetWinEventHook(0x8005, 0x8005, 0, RegisterCallback("MyFunc", "F"),0,0,0) ; EVENT_OBJECT_FOCUS
SetWinEventHook(0x800B, 0x800B, 0, RegisterCallback("MyFunc", "F"),0,0,0) ; EVENT_OBJECT_LOCATIONCHANGE
Gui, Main: Color, EEAA99
Gui, Main: +HwndmainGuiId +LastFound
Gui, Child2: Color, 198A05
Gui, Child2: +ParentMain +HwndchildGuiId2 +AlwaysOnTop
Run, Notepad,, Hide
WinWait, ahk_class Notepad
Global External := WinExist("ahk_class Notepad"), childGuiID2
DllCall("SetParent", "uint", External, "uint", mainGuiId)
WinMove, ahk_id %External%, , 110,110, 444, 444
WinShow, ahk_id %External%
Gui, Child2: Show, x222 y222 w200 h200, Child GUI 2
Gui, Main: Show, w600 h600
WinSet, Top, , ahk_id %childGuiID2%
; WinSet, ExStyle, +0x08000000, ahk_id %External% ; WS_EX_NOACTIVATE
WinSet, Region,
(
0-0 200-0 200-200 0-200 0-0
50-50 80-50 80-80 50-80 50-50
100-100 100-180 180-180 150-180 150-150
), ahk_id %childGuiID2%
WinSet, Redraw, , ahk_id %mainGuiId%
WinSet, Redraw, , ahk_id %External%
WinSet, Redraw, , ahk_id %childGuiID2%
return
MyFunc(hWinEventHook, event, hwnd) {
If (hwnd = External)
WinSet, Top, , ahk_id %childGuiID2%
}
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)
}
Но с помощью WinSet, Region можно хоть картину пикассо обрисовать, при большом желании.
]]>Child2, в некоторых местах должен быть прозрачным, что бы можно было взаимодействовать мышкой с приложение которое под ним.
WinSet, Region, позволит сделать много "форточек"? Так как там нужна не одна дырка.
]]>Никогда не пишите "Untitled" для блокнота.
]]>
DetectHiddenWindows, On
Gui, Main: Color, EEAA99
Gui, Main: +HwndmainGuiId
Gui, Main: +LastFound +resize
WinSet, TransColor, EEAA99
Gui, Main: Show, w600 h600
Gui, Child2: +ParentMain +HwndchildGuiId2 +AlwaysOnTop
Gui, Child2: Color, EEAA99
Gui, Child2: +LastFound
WinSet, TransColor, EEAA99
Gui, Child2: Show, x100 y0 w300 h100, Child GUI 2
Run, Notepad,, Hide
WinWait, ahk_class Notepad
Global External := WinExist("Untitled"), childGuiID2
DllCall("SetParent", "uint", External, "uint", mainGuiId)
WinMove, ahk_id %External%, , 0,0
WinShow, ahk_id %External%
WinSet, Top, , ahk_id %childGuiID2%
Gui, Main: Show
SetWinEventHook(0x8005, 0x8005, 0, RegisterCallback("MyFunc", "F"),0,0,0)
; 0x8005 = EVENT_OBJECT_FOCUS
return
MyFunc(hWinEventHook, event, hwnd) {
If (hwnd = External)
WinSet, Top, , ahk_id %childGuiID2%
}
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)
}нотепад всерано активируется
Ну он и должен активироватся, можно ещё попробовать добавить к нему стиль WS_EX_NOACTIVATE, но тогда скорее всего уже нельзя будет с ним взаимодействовать, и не всегда оно применяется.
Так ещё попробуйте:
#SingleInstance Force
#Persistent
#NoEnv
ListLines Off
DetectHiddenWindows, On
SetWinEventHook(0x8005, 0x8005, 0, RegisterCallback("MyFunc", "F"),0,0,0) ; EVENT_OBJECT_FOCUS
SetWinEventHook(0x800B, 0x800B, 0, RegisterCallback("MyFunc", "F"),0,0,0) ; EVENT_OBJECT_LOCATIONCHANGE
Gui, Main: +HwndmainGuiId
Gui, Main: +LastFound
Gui, Child2: +ParentMain +HwndchildGuiId2 +AlwaysOnTop
Gui, Child2: Add, Text,,this is child gui
Run, Notepad,, Hide
WinWait, ahk_class Notepad
Global External := WinExist("ahk_class Notepad"), childGuiID2
DllCall("SetParent", "uint", External, "uint", mainGuiId)
WinMove, ahk_id %External%, , 0,0
WinShow, ahk_id %External%
Gui, Child2: Show, x100 y0 w300 h100, Child GUI 2
Gui, Main: Show, w600 h150
WinSet, Top, , ahk_id %childGuiID2%
; WinSet, ExStyle, +0x08000000, ahk_id %External% ; WS_EX_NOACTIVATE
return
MyFunc(hWinEventHook, event, hwnd) {
If (hwnd = External)
WinSet, Top, , ahk_id %childGuiID2%
}
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)
}
serzh82saratov,
нотепад всерано активируется и выходит на первый план.