TPageControl的一个小问题，解决立即给分

Question

如何让 其中的TabSheet页不可用，即达到不可用页caption字体变灰，
不可用页选中也不会进入此页 页面。解决立即给分。
用 TabSheet.enabled:=false 或者 PageControl.page[0].enabled:=false
只是使操作页中的各控件不可用，但不能达到不可进入此页的效果。
解决立即给分

Answer 1

如果你想让第二页不可进入，下面的程序可以做到。procedure TForm1.PageControl1Changing(Sender: TObject;
  var AllowChange: Boolean);
begin
  i:=pagecontrol1.ActivePageIndex;
end;procedure TForm1.PageControl1Change(Sender: TObject);
begin
  if pagecontrol1.ActivePageIndex=1 then
    pagecontrol1.ActivePageIndex:=i;
end;

Answer 2

让它不可见不就行了吗？tabsheet2.visible := false;

Answer 3

procedure TForm1.PageControl1Changing(Sender: TObject;
  var AllowChange: Boolean);
begin
  AllowChange:=false;
end;

Answer 4

晓竹的解决方法比较生硬，适应性差了点。如果要禁用的Tab较多的话，不可取。