adm 发表于 2023-7-26 23:52:34

子窗口问题

<火山程序 类型 = "通常" 版本 = 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:34

子窗口.创建弹出子窗口 (本对象, , , , , )       这样行不?

创世魂 发表于 2023-7-27 09:23:44

创建弹出子窗口   用这个就行了。 多看看帮助页,有好几个创建窗口的方法,这个不行换下一个。
页: [1]
查看完整版本: 子窗口问题