递归火山软件开发平台

标题: 想让弹出窗口，紧随主窗口 [打印本页]

作者: 山梦 时间: 2023-6-15 19:55
标题: 想让弹出窗口，紧随主窗口
易语言中，
载入 (图片窗口, , 假)
图片窗口.左边 = _启动窗口.左边 + _启动窗口.宽度 + 5
图片窗口.顶边 = _启动窗口.顶边
_____________________________________________
火山中

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

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

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

作者: xrea 时间: 2023-6-15 20:37
主窗口类公开，通过取程序（）获取主窗口位置信息

作者: 山梦 时间: 2023-6-15 20:58

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

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

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

作者: server 时间: 2023-6-16 05:46
<火山程序类型 = "通常" 版本 = 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)
}
}

欢迎光临递归火山软件开发平台 (https://bbs.voldp.com/)