请教PageControl问题?

我想在打开某个TableSheet之前进行身份验证,如果合法则允许打开该TableSheet,否则不让打开!  
  请各位高手不吝指教! 问题点数：50、回复次数：4Top

1 楼anbangs（大邦）回复于 2005-04-04 19:37:52 得分 5

onchanging   事件Top

2 楼zyxg（仰天大笑出门去，我辈岂是蓬莱人）回复于 2005-04-04 19:41:30 得分 5

顶Top

3 楼cyblueboy83（爱情白痴—电脑迷）回复于 2005-04-04 19:43:24 得分 0

if   PageControl.ActivePageIndex   =   1   then    
  begin  
      ......  
  end;Top

4 楼cyblueboy83（爱情白痴—电脑迷）回复于 2005-04-04 19:46:09 得分 40

想了想还是说详细一点吧，希望楼主能明白  
   
  procedure   TForm1.PageControl1Change(Sender:   TObject);  
  begin  
      if       pagecontrol1.ActivePageIndex   =   1   then  
      begin  
          pagecontrol1.ActivePageIndex   :=   0;  
      end;  
   
  end;Top

相关问题

• pagecontrol
• activepageindex
• tablesheet
• 打开
• then begin

• 帖主：neighborgirl
• anbangs
• zyxg
• cyblueboy83

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