如何在PageControl中的随意位置动态生成TabSheet?

Question

PageControl中动态生成TabSheet代码如下
var
 Tab               : TTabSheet;begin  Tab := TTabSheet.Create(self);
  Tab.PageControl := pagecontrol1;但生成的TABSHEET只能紧靠最后一个TABSHEET，我想在当前被激活的TABSHEET旁边
动态生成TABSHEET，可以吗？

Answer 1

可以的，后面再加上这句即可：
Tab.PageIndex := PageControl1.ActivePageIndex + 1;

Answer 2

哦，还来这么简单，THANK　YOU！