我用PageControl新建了三个页标签，怎样锁定一个页标签始终是PageControl的ActivePage，直到解除锁定为止？

Question

我的办法很土，就是把pagecontrol的enabled设成了false，这样改是改不了了，但是它上面的控件也不能得到焦点，我是把这些控件的parent改成form，当然还要在结束时变回来。

Answer 1

PageControl.Enabled := False;

Answer 2

很简单了，如果我们现在要锁定第一个页面，就用如下方法，其它以此类推。
PageControl1：TPageControl；主要是改变其OnChange属性。procedure TForm1.PageControl1Change(Sender: TObject);
begin
   PageControl1.ActivePageIndex := 0;
end;

Answer 3

用OnChangeing事件
procedure TForm1.PageControl1Changing(Sender: TObject;
  var AllowChange: Boolean);
begin
  AllowChange := False ;
end;

Answer 4

在PageControl的OnChanging中添加代码，如不允许改变页面设AllowChange为false;
如加以锁定变量locked:
procedure TForm1.PageControl1Changing(Sender: TObject;
  var AllowChange: Boolean);
begin
  if locked=true then
    AllowChange := false
  else
    AllowChange := True;

Answer 5

我觉的你要一定想这样做，倒不如用一个NoteBook；
或者就如上边几位所言，都可以达到你的效果