delphi - 当用户切换到嵌套的标签页时如何执行一些代码？

Question

我有一个 TPageCOntrol，它有 3 个 TTabSheet，其中一些有进一步的 TPageCOntrol，它有一个 TTabSheet

有点

Page Control 1
  TabSheet 1
  TabSheet 2
    Page Control 2
      TabSheet 2a
      TabSheet 2b
  TabSheet 3

现在，只要其中一个标签表对用户可见，我就想执行一些代码，但我不确定要 Hook 哪个事件。

例如，如果用户正在查看 TabSheet 1 并切换到显示 TabSheet 2a 的 TabSheet 2，那么我想执行Tabsheet 2a 的代码，但我不能hook TabSheet 2a 的OnEnter 或OnShow。而且它不是 Page Control2 的 OnChange。

事实上，我所能看到的就是将一大堆开关/案例放入页面控件 1 的 OnChange 事件中......这是更好的方法吗？

Answer 1

每个 TabSheet 都有“OnShow”事件，每当用户点击它并使其可见时就会触发该事件，这应该可以解决问题，但是在 tabsheet 中有一个 pagecontrol，它有另一个 pagecontrol 作为父级等等，这是相当沉重的在 UI 上，尝试使用您将在标签表的 OnShow 事件上创建并在标签表的 OnHide 事件上销毁的框架。

编辑:如果您选择在标签页内使用 TFrames，请转到框架的“公共(public)”部分，按 CTRL+SPACE 并键入“create”，这样您将覆盖“Create”构造函数并重复“Destroy”，这样您将覆盖那也是