pagecontrol选中一页后,冻结其它所有的页,即是不能选择其他页

Question

pagecontrol有多个页面，如何选中中间的一个页面后，使它前面的所有页面都处于不能选择的状态？
不是要隐藏前面的页面，而是将它们冻结，因为软件是从左到右进行的，到右边某一页后，就要求不能再回到前面页面。 

Answer 1

有一个OnChanging事件,在里面做个判断来决定是否把ALLowChange设为false

Answer 2

方法很多，在onchange中做也可以，选中一个tab后，可以将前面的tab的enable设为false

Answer 3

procedure TForm1.PageControl1Changing(Sender: TObject;
  var AllowChange: Boolean);
begin
  AllowChange:=False;
end;另外，可以将其它tabsheet隐藏self.TabSheet2.TabVisible:=False;

Answer 4

激活一个Tab后，将前面的Tab的Enable属性设为False