想让弹出窗口，紧随主窗口

山梦

易语言中，
载入 (图片窗口, , 假)
图片窗口.左边 = _启动窗口.左边 + _启动窗口.宽度 + 5
图片窗口.顶边 = _启动窗口.顶边
_____________________________________________
火山中


<火山程序 类型 = "通常" 版本 = 1 />

图片链接窗口.创建弹出子窗口 (本对象, , , , , )
图片链接窗口.左边=？？？？(找不到。。。。。。)

请大神、大佬、高手，解惑，谢谢

xrea

主窗口类公开，通过取程序（）获取主窗口位置信息

山梦

xrea 发表于 2023-6-15 20:37
主窗口类公开，通过取程序（）获取主窗口位置信息

<火山程序 类型 = "通常" 版本 = 1 />
图片链接窗口.左边 = 取程序 ().主窗口对象.左边 + 取程序 ().主窗口对象.宽度 + 5
图片链接窗口.顶边 = 取程序 ().主窗口对象.顶边

可以了，谢谢!!!万分感谢 !!!

server

<火山程序 类型 = "通常" 版本 = 1 />

包 火山.程序

类 启动类 <公开 基础类 = 窗口程序类 折叠>
{
    方法 启动方法 <公开 类型 = 整数>
    {
        all.Init ()
        返回 (1)
    }

    #
}

类 all <公开>
{
    变量 myWin <公开 静态 类型 = myWin>
    变量 图片窗口 <公开 静态 类型 = 图片窗口>

    方法 Init <公开 静态>
    {
        myWin.创建主窗口 (, , , , )
    }

    #
}

类 myWin <基础类 = 窗口 隐藏值属性 = "0" @视窗.布局 = "client_size = \"600, 420\"">
{
    方法 myWin_创建完毕 <接收事件 类型 = 整数 注释 = "当本组件及其中所有子组件均被创建完毕后发送此事件.">
    参数 来源对象 <类型 = myWin 注释 = "提供事件产生的具体来源对象">
    参数 标记值 <类型 = 整数 注释 = "用户调用\"挂接事件\"命令时所提供的\"标记值\"参数值,非此方式挂接事件则本参数值固定为0.">
    {
        all.图片窗口.创建窗口 (, , , , )
        返回 (0)
    }

    方法 myWin_位置被改变 <接收事件 类型 = 整数 注释 = "当本组件的位置被改变后发送此事件">
    参数 来源对象 <类型 = myWin 注释 = "提供事件产生的具体来源对象">
    参数 标记值 <类型 = 整数 注释 = "用户调用\"挂接事件\"命令时所提供的\"标记值\"参数值,非此方式挂接事件则本参数值固定为0.">
    {
        如果 (all.图片窗口.取窗口句柄 () != 0)
        {
            all.图片窗口.移动 (左边 + 宽度 + 5, 顶边, , )


        }
        返回 (0)
    }
}

类 图片窗口 <基础类 = 窗口 折叠 隐藏值属性 = "0" @视窗.布局 = "client_size = \"600, 420\"">
{
    方法 myWin_创建完毕 <接收事件 类型 = 整数 注释 = "当本组件及其中所有子组件均被创建完毕后发送此事件.">
    参数 来源对象 <类型 = myWin 注释 = "提供事件产生的具体来源对象">
    参数 标记值 <类型 = 整数 注释 = "用户调用\"挂接事件\"命令时所提供的\"标记值\"参数值,非此方式挂接事件则本参数值固定为0.">
    {
        返回 (0)
    }
}