请教PageControl问题?

Question

我想在打开某个TableSheet之前进行身份验证,如果合法则允许打开该TableSheet,否则不让打开!
请各位高手不吝指教!

Answer 1

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

Answer 2

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