delphi - 如何在继承的 TPageControl 中更改 TTabSheets 的顺序？

Question

通常我更改 PageControl 中 TabSheets 顺序的方法是：

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

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

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

虽然很麻烦，但这个过程是有效的。

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

是否有另一种方法可以更改继承表单中 TabSheets 的顺序？

Answer 1

在代码中处理这个可能是最简单的：PageIndex在表单的构造函数或OnCreate事件中设置 TabSheet 的属性。