PageControl里有多个tabsheet,怎样控制只能在一个tabsheet活动而不能跳到其他tabsheet

Question

有点象form.showmodal的效果

Answer 1

你把其他的tabsheet都enable=false掉

Answer 2

//参考
procedure TForm1.PageControl1Change(Sender: TObject);
begin
  if TPageControl(Sender).ActivePageIndex > 1 then
    TPageControl(Sender).ActivePageIndex := 1;
end;procedure TForm1.PageControl1Changing(Sender: TObject;
  var AllowChange: Boolean);
begin
  { AllowChange := False; } //这样可以锁定一页不动
end;

Answer 3

pagecontrol1chang事件中activepageindex:=固定值

Answer 4

可否另每个tabsheet的标签(非该tabsheet里的内容)变成enable