一个菜问题

Question

1怎样动态地使PageControl的TabSheet页面可点选或不可点选

Answer 1

type
  TForm1 = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    TabSheet4: TTabSheet;
    TabSheet5: TTabSheet;
    procedure PageControl1Change(Sender: TObject);
  private
    At : integer ;
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.DFM}procedure TForm1.PageControl1Change(Sender: TObject);
begin
   if PageControl1.ActivePageIndex = 1 then
     PageControl1.ActivePageIndex := at;
   at := PageControl1.ActivePageIndex;
end;end.

Answer 2

多谢
不行吧!你这是一个变通的做法而已
procedure TForm1.PageControl1Change(Sender: TObject);
begin
   if PageControl1.ActivePageIndex = 1 then
     PageControl1.ActivePageIndex := at;
   at := PageControl1.ActivePageIndex;
end;
end.
中
   at := PageControl1.ActivePageIndex;
应该调到前面吧!