如何在继承的 TPageControl 中更改 TTabSheets 的顺序?

How to change order of TTabSheets in an inherited TPageControl?

通常我在 PageControl 中更改 TabSheets 的顺序是:

  1. 右键单击表单并选择“以文本方式查看”

  2. 手动编辑源 DFM 以按所需顺序放置 TabSheets

  3. 右键单击源并选择“以表单形式查看”

虽然很麻烦,但是这个过程很管用。

但是现在,我有了新的情况。我正在使用一个从另一个表单继承的表单,该表单已经具有带有 2 个 TabSheets 的 PageControl。我需要添加第三个选项卡,但这需要按顺序是第二个。无论我在DFM源代码中做什么,我都无法将第二个继承的TabSheet更改为PageControl中的第三页。

是否有其他方法可以实现更改继承表单中 TabSheet 的顺序?

可能在代码中处理此问题最简单:在表单的构造函数或 OnCreate 事件中设置 TabSheet 的 PageIndex 属性。