Page.ActivePageIndex := 1 ;
其他的自己想办法

解决方案 »

  1.   

    在程序里面定义一个整形变量保存点击按钮以前的PageControl1.ActivePageIndex~~
    然后在恢复~~var
      PageIndex:Integer;
    begin
     PageIndex:=PageControl1.ActivePageIndex;
     do something......
     PageControl1.ActivePageIndex:=PageIndex;
    end;
      

  2.   

    在Button的Click事件:
      PageControl1.ActivePage:=Tabsheet3;使用时间控件Timer,初始时,Enabled:=false,设置inteval为所需要的时间
    在Timer的事件里:
      PageControl1.ActivePage:=Tabsheet1;
      Timer1.Enabled:=false;在Tabsheet3的show事件中,激活Timer1
    Timer1.Enabled:=true;