pagecontrol页面之间的切换问题

Question

我在pagecontrol建立了三个页面，当在第一个页面修改数据时，要防止用户切换到其它页面，应该在哪个事件写语句，提示用户在编辑状态不能切换页面，而且页面也不会切换到其它页面，要保持在原来的第一页面,请指教如何写代码

Answer 1

隐藏行不行啊？
pagecontrol1.Tabsheet2.visable := false;

Answer 2

timer1.timer事件：
if pagecontroll.activepageindex<>0 then
  pagecontroll.activepageindex=0;

Answer 3

在TPageControl的OnChanging事件中
AllowChange设为False就不允许切换
procedure TMainForm.PageControl1Changing(Sender: TObject;
  var AllowChange: Boolean);
begin
  ShowMessage('Can''t Change Page');
  AllowChange := False;
end;