如何阻止用户在pagecontrol里从一个页面转移到别的页面

Question

如何阻止用户在pagecontrol里从一个页面转移到别的页面？activepage:=n好象没什么用啊？

Answer 1

activepageindex:=n在OnChanging里加代码

Answer 2

procedure TForm1.PageControl1Changing(Sender: TObject;
  var AllowChange: Boolean);
begin
  AllowChange := false;
end;

Answer 3

procedure TForm1.PageControl1Changing(Sender: TObject;
  var AllowChange: Boolean);
begin
  if 条件成立 then
      AllowChange := false
  else
      AllowChange := True;
end;