窗口跟随移动

try DestroyDialog Hello catch()
rollout HIHI "HIHI"
(
    
)
rollout Hello "Hello"
(
    button aa "测试" 
    
    on aa pressed do
    (
        createdialog HIHI 200 200
        xy = GetDialogPos Hello + [Hello.width+8,0]
        SetDialogPos HIHI xy
    )
    on Hello moved arg do
    (
        xy = GetDialogPos Hello + [Hello.width+8,0]
        SetDialogPos HIHI xy
    )
    on Hello close do
    (
        DestroyDialog HIHI
    )
)
createdialog Hello 200 200