如何控制pagecontrol页面

Question

当pagecontrol中有多个tabsheet时如何控制tabsheet不被切换

Answer 1

設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;

Answer 2

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