if PageControl1.ActivePageIndex < PageControl1.PageCount - 1 then
    PageControl1.ActivePageIndex := PageControl1.ActivePageIndex + 1;
//////////////////////////////////////
  if PageControl1.ActivePageIndex > 0 then
    PageControl1.ActivePageIndex := PageControl1.ActivePageIndex - 1;

解决方案 »

  1.   

    PageControl1.ActivePage=TabSheet
    PageControl1.ActivePageIndex 
      

  2.   

    建议使用frame,这样比较方便,
      

  3.   

    补充一点,若你有几个页面公用的控件,图片,不用每一个页面放一个,
    只要动态改变他们的owner属性就行了
      

  4.   

    还不够具体呀?
    将页面的页头可现属性,好象是TabVisible吧,全都置假,然后在自已的上一步下一步的按钮里边控制PageControl1.ActivePageIndex =你要显示的那一页的索引控制就是了.