使用PageControl组件的问题？

Question

使用PageControl组件分页。除了使用OnChange事件触发分页之外，还有其它的方法吗？
最好能有具体的代码供我参考一下。

Answer 1

不知道你要实现什么功能,OnChanging也行

Answer 2

ActivePageIndex:=0;//显示的页,0是第一页

Answer 3

procedure TTmain.pagecontrolChange(Sender: TObject);
begin
   case pagecontrol.TabIndex of
      0:begin
           btnGZCSHClick(self);        end;
      1:begin
         //
        end;   
   end;end;onchanging 不是在换页的同时触发的吗？我想实现的是换页，因为我用到了很多页，代码都写一起看着很乱~！

Answer 4

指定pagecontrol.ActivePageIndex属性就行啊

Answer 5

pagecontrol.ActivePageIndex=0(第一页) 
......
pagecontrol.ActivePageIndex=n(第n+1页)

Answer 6

ActivePageIndex 足以实现楼主的功能了