请给详细一点的源代码，谢谢

procedure TForm1.PageControl1MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  if Timer1.Enabled and Assigned(TPageControl(Sender).ActivePage) then
    TPageControl(Sender).ActivePage.TabVisible := False
    //TPageControl(Sender).ActivePage.Free//如果你是动态创建
  else Timer1.Enabled := True;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  TTimer(Sender).Enabled := False;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Timer1.Interval := 200;
  Timer1.Enabled := False;
end;

伴水的方法可行。
用timer去判断鼠标双击事件的发生，然后控制pagecontrol的显示与否

没有该事件，只有Create了

我搞定了，谢谢zswang(伴水)(需要充充电)