How to Child window follow parent?

[spytek_98 0]

Hi all,

I have seen on the forum bits a pieces of examples on how to "glue" a child window to a parent window, so that it follows the parent around the screen. But I was hoping someone can give a full example algorithm ie dragging the child window to any side of the parent and it still follows the parent. Same idea as in Winamp and its playlist or DVDDecrypter with its log window.

Rather than me re-inventing the wheel, I was hoping that someone out there as already worked it out for me

Thanks in advance

[zcoacoaz 0]

I created those scripts. I may be able to help, in a bit i might be able to post a function for you.

[zcoacoaz 0]

Here you are

expandcollapse popup

#include <GUIConstants.au3>
Global Const $CF_TOP = 0
Global Const $CF_LEFT = 1
Global Const $CF_RIGHT = 2
Global Const $CF_BOTTOM = 3
Opt ( "GUIOnEventMode", 1 )
GuiCreate("Child",400,80,350,300)
GUISetOnEvent ( $GUI_EVENT_CLOSE, "Quit" )
GUISetState ( )
GUICreate ( "Parent", 600, 400, -1, -1, $WS_SIZEBOX + $WS_SYSMENU )
GUISetOnEvent ( $GUI_EVENT_CLOSE, "Quit" )
GUISetState ( )

While 1
    _ChildFollow ( "Parent", "Child", $CF_BOTTOM )
WEnd

Func Quit()
    Exit
EndFunc

Func _ChildFollow ( $Parent, $Child, $ChildSide=0 )
    If $ChildSide=0 Then
        $PPos = WinGetPos ( $Child )
        $MovePos = WinGetPos ( $Parent )
        $X = ($MovePos[2]-$PPos[2])/2+$MovePos[0]
        WinMove ( $Child, "", $X , $MovePos[1] - ($PPos[3]-1) )
    ElseIf $ChildSide=1 Then
        $PPos = WinGetPos ( $Child )
        $MovePos = WinGetPos ( $Parent )
        $Y = ($MovePos[3]-$PPos[3])/2+$MovePos[1]
        WinMove ( $Child, "", $MovePos[0]-$PPos[2] , $Y )
    ElseIf $ChildSide=2 Then
        $PPos = WinGetPos ( $Child )
        $MovePos = WinGetPos ( $Parent )
        $Y = ($MovePos[3]-$PPos[3])/2+$MovePos[1]
        WinMove ( $Child, "", $MovePos[0]+$MovePos[2] , $Y )
    ElseIf $ChildSide=3 Then
        $PPos = WinGetPos ( $Child )
        $MovePos = WinGetPos ( $Parent )
        $X = ($MovePos[2]-$PPos[2])/2+$MovePos[0]
        WinMove ( $Child, "", $X , $MovePos[3] + $MovePos[1] )
    EndIf
EndFunc