递归火山软件开发平台

标题: 子窗口问题 [打印本页]

作者: adm 时间: 2023-7-26 23:52
标题: 子窗口问题
<火山程序类型 = "通常" 版本 = 1 />

包火山.程序

类启动类 <公开基础类 = 窗口程序类>
{
变量主窗口对象 <类型 = 我的主窗口>

方法启动方法 <公开类型 = 整数>
{
      主窗口对象.创建主窗口 ()
      返回 (1)
}
}

# ===

类我的主窗口 <基础类 = 窗口注释 = "样例主窗口" 折叠2 @视窗.布局 = "client_size = \"775, 653\"" 标题 = "我的主窗口" 禁止系统主题 = 真>
{
变量按钮1 <类型 = 按钮隐藏值属性 = "0" @视窗.布局 = "id = 101\r\npos = \"685, 614, 80, 32\"" 禁止系统主题 = 真标题 = "创建子窗口">
变量子窗口 <类型 = 子窗口1>

方法按钮_被单击 <接收事件类型 = 整数注释 = "当按钮被单击后发送此事件">
参数来源对象 <类型 = 按钮注释 = "提供事件产生的具体来源对象">
参数标记值 <类型 = 整数注释 = "用户调用\"挂接事件\"命令时所提供的\"标记值\"参数值,非此方式挂接事件则本参数值固定为0.">
{
      如果 (来源对象 == 按钮1)
      {
         子窗口.创建子窗口 (本对象, , , , , )
      }
      返回 (0)
}
}

类子窗口1 <基础类 = 窗口隐藏值属性 = "0" @视窗.布局 = "client_size = \"323, 277\"" 标题 = "子窗口">
{

#
}

上面代码一个主窗口一个子窗口，子窗口创建完成后子窗口可以随意移动但是点击一下主窗口后再去操作子窗口是操作不了的，时常能操作一下基本上就是不能操作的状态

作者: 山梦 时间: 2023-7-27 06:23
子窗口.创建弹出子窗口 (本对象, , , , , ) 这样行不？

作者: 创世魂 时间: 2023-7-27 09:23
创建弹出子窗口用这个就行了。多看看帮助页，有好几个创建窗口的方法，这个不行换下一个。

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