delphi - 避免在 TPageControl 上当前页面下的页面上单击传播

Question

我有一个包含五个页面的 TPageControl，显示的页面以这种方式交替设置 ActivePageIndex 属性：

PageControl1.ActivePageIndex := 4;

问题是当前显示的页面覆盖的下面的页面在上面的页面上按下鼠标时点击了他的按钮，我怎样才能避免这种行为？如何避免在当前显示（也是当前索引）下方的页面上的点击传播？

该应用程序使用 CLX 作为图形库而不是 VCL。

Answer 1

Delphi 不做点击传播。

我会检查获得点击的按钮是否放置在 TabSheet 上而不是父控件上。在对象检查器的下拉列表中找到您想要的按钮并按下 - 所选项目将成为按钮的父项。它是标签页吗？

或者您可以将此代码添加为按钮单击功能的第一行

ShowMessage(TButton(Sender).Parent.Name);