Pagecontrol动态管理页面，包含关闭按钮

说明在二楼！ 用法在三楼！ type   TOnPageClose=procedure(PageIndex:Integer;var CanClose:Boolean);   TTabSheetEx=class(TTabSheet)     private       FInterfaceForm:TForm;     public       constructor Create(AOwner: TComponent;interfaceForm:TForm);reintroduce;       destructor  Destroy;override;       procedure ShowForm;   end;   TPageControlEx=class(TPageControl)     private       FOnPageClose:TOnPageClose;       FCloseButton:TSpeedButton;     protected       procedure FOnCloseButtonClick(Sender:TObject);       procedure ControlResize(Var msg:TMessage);message WM_SIZE;     public       constructor Create(AOwner:TComponent);reintroduce;       destructor  Destroy;override;       function  AddPage(PageCaption:stringageDisplayForm:TForm=nil):Integer;   {添加一个页面，返回ID值}       procedure ClosePage(Index:Integer);                                                                {关闭一个页面}       property OnPageClose:TOnPageClose read FOnPageClose write FOnPageClose;   end; 复制代码 实现部分： { TTabSheetEx } constructor TTabSheetEx.Create(AOwner: TComponent; interfaceForm: TForm); begin   inherited Create(AOwner);   FInterfaceForm:=interfaceForm;   if Assigned(FInterfaceForm) then   begin     FInterfaceForm.Parent:=Self;     FInterfaceForm.BorderStyle:=bsNone;     FInterfaceForm.Align:=alClient;   end; end; destructor TTabSheetEx.Destroy; begin   if Assigned(FInterfaceForm) then     FreeAndNil(FInterfaceForm);   inherited; end; procedure TTabSheetEx.ShowForm; begin    if Assigned(FInterfaceForm) then       FInterfaceForm.Show; end; { TPageControlEx } function TPageControlEx.AddPage(PageCaption: string;   PageDisplayForm: TForm): Integer; var   TabSheet:TTabSheet; begin   TabSheet:=TTabSheetEx.Create(Self,PageDisplayForm);   TabSheet.Parent:=Self;   TabSheet.Caption:=PageCaption;   TabSheet.PageControl:=Self;   TabSheet.Visible:=True;   Result:=TabSheet.PageIndex;   TabSheet.TabVisible:=True;   self.ActivePageIndex:=Result;   (TabSheet as TTabSheetEx).ShowForm; end; procedure TPageControlEx.ClosePage(Index: Integer); var   TabSheet:TTabSheet; begin   if (Index>-1) or (Index<self.PageCount) then   begin      TabSheet:=self.Pages[Index];      TabSheet.Free;   end   else     raise Exception.Create('Error PageIndex'); end; procedure TPageControlEx.ControlResize(var msg: TMessage); var   CWith:Word; begin   inherited;   CWith:=msg.LParamLo;   FCloseButton.Left:=CWith-FCloseButton.Width-5;   FCloseButton.Top:=2; end; constructor TPageControlEx.Create(AOwner: TComponent); begin   inherited Create(AOwner);   FCloseButton:=TSpeedButton.Create(Self);   FCloseButton.Width:=16;   FCloseButton.Height:=16;   FCloseButton.Caption:='×';   FCloseButton.Flat:=True;   FCloseButton.Parent:=Self;   FCloseButton.OnClick:=FOnCloseButtonClick; end; destructor TPageControlEx.Destroy; begin   FCloseButton.Free;   inherited; end; procedure TPageControlEx.FOnCloseButtonClick(Sender: TObject); var   CanClose:Boolean; begin   CanClose:=true;   if Assigned(FOnPageClose) then     FOnPageClose(self.ActivePageIndex,CanClose);   if CanClose then     if self.PageCount>1 then        ClosePage(self.ActivePageIndex); end;