窗口跟随移动 

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
posted @ 2019-12-27 23:38  HU_M  阅读(176)  评论(0)  编辑  收藏  举报