如何控制pagecontrol页面

当pagecontrol中有多个tabsheet时如何控制tabsheet不被切换 问题点数：100、回复次数：5Top

1 楼nyf1220（我是党员----不过听说最近风声紧，打算换名字）回复于 2004-12-03 16:05:26 得分 10

Enable:=False;Top

2 楼pengxuan（网虫先生）回复于 2004-12-03 16:09:30 得分 10

Enable:=False;  
  Top

3 楼merkey2002（小样的）回复于 2004-12-03 17:01:02 得分 35

設tabsheet   的enable   沒用的  
  設pagecontrol的enable:=false   的話那當前的tabsheet上的組件也沒法操作了。  
  所以，  
  你可以設置  
              tabsheet2.TabVisible:=false;  
              tabsheet3.TabVisible   :=false;  
  這樣這兩個sheet就看不見了。  
  或者可以這樣  
  procedure   TForm1.PageControl1Change(Sender:   TObject);  
  begin  
      if   pagecontrol1.ActivePageIndex=2   then  
          pagecontrol1.ActivePageIndex   :=0;  
  end;Top

4 楼JonnySun（智者寡言）回复于 2004-12-03 17:16:45 得分 35

>>>>自己多試試就可能找答案了.  
   
  procedure   TForm1.PageControl1Changing(Sender:   TObject;  
      var   AllowChange:   Boolean);  
  begin  
      AllowChange:=false;  
  end;Top

5 楼nyf1220（我是党员----不过听说最近风声紧，打算换名字）回复于 2004-12-03 17:36:16 得分 10

哈哈，忘了，，楼上的对Top

相关问题

• 控制
• pagecontrol
• tabsheet
• 這樣
• activepageindex
• tabvisible
• allowchange
• tobject
• procedure tform
• enable

• 帖主：baiqiu
• nyf1220
• pengxuan
• merkey2002
• JonnySun
• nyf1220

• Delphi类图书
• Delphi类源码下载
• Delphi控件下载