OpenEdge Progress-4GL 如何与 ActiveX 标签条组件一起工作?

How does OpenEdge Progress-4GL work with ActiveX tabstrip component?

我想在我的 OpenEdge Progress-4GL 环境中使用标签条,但我做不到。

"没问题:Progress 网站上有一个例子。",你可能会说,实际上 this URL 上有一个标签条的例子(你可能需要下载提到的“TabStrip_sample.zip”),其中一个列表视图放在一个选项卡上,另一个选项卡上有一个树视图。 (不要害怕:zip 文件只包含源代码、位图和一个自动创建的 *.wrx 文件,不会损害您的计算机)

现在的问题是:他们到底是怎么做到的?

进入文件“dbtest.w”让我们看看设计时的两个选项卡(在调整 Listview 的大小之后):

显然所有组件都放在 TabStrip 组件上,因此选项卡和组件之间的链接应该在运行时完成(正如 URL 中提到的),但这里有一个问题:

似乎没有任何事件处理程序 ON ... CFTabStrip 或代码中的任何内容。
CFTabStrip 的 属性 编辑器中提到的各个标签页的键(“Db_tbl”和“Db_sch”)或索引(1 和 2)是在代码中无处可见。

谁能解释一下他们是怎么做到的?
提前致谢

“魔法”在 PROCEDURE CFTabStrip.TabStrip.MouseDown 中,它检查水平位置 (x) 是指第一个选项卡还是右侧选项卡,然后隐藏/显示一个或另一个。

相当笨拙,但如果您查看 header,这个示例是将近 20 年前创建的,用于使用 Progress 8。