Delphi：向右滚动PageControl选项卡区域

Question

在运行时创建新选项卡后，我看到最后一个选项卡与选项卡标题区域中的系统[＆lt;]和[＆gt;]按钮重叠。如何将此区域滚动到最右边的位置？来自一个看起来和我的应用程序相同的c ++应用程序。德尔福7。

Answer 1

如果您没有选择新创建的标签页，则可以使用ScrollTabs PageCount为delta，因为如果delta超出可能的范围，PageControl将尽可能滚动。

   PageControl.ScrollTabs(PageControl.PageCount);

如果要选择创建的TabSheet并滚动到最右边的位置，只需设置ActivePageIndex：

   PageControl.ActivePageIndex :=  PageControl.PageCount - 1;