TKCustomPageControl

type TKCustomPageControl = class(TKCustomControl)

protected

  FDeletingPage: Boolean;

  FLoadedActivePageIndex: Integer;

  FNewDockSheet: TKTabSheet;

  FUndockingPage: TKTabSheet;

  function CanChange; virtual;

  procedure Change; virtual;

  procedure ChangeActivePage(); virtual;

  procedure DoAddDockClient(); override;

  procedure DockOver(); override;

  procedure DoRemoveDockClient(); override;

  procedure DoTabClick(); virtual;

  procedure DoTabClose(); virtual;

  procedure FreePage(); virtual;

  function GetImageIndex(); virtual;

  function GetPageFromDockClient();

  procedure GetSiteInfo(); override;

  procedure InsertPage(); virtual;

  procedure Loaded; override;

  procedure MouseDown(); override;

  procedure MovePage();

  procedure PaintToCanvas(); override;

  function ReleasePage(); virtual;

  procedure RemovePage(); virtual;

  procedure SetActivePage();

  procedure SetChildOrder(); override;

  procedure ShowControl(); override;

  procedure UpdateAllDesignerFlags;

  procedure UpdateDesignerFlags();

  procedure UpdateTabPanel; virtual;

  procedure UpdateTabPanelPosition; virtual;

public

  constructor Create(); override;

  destructor Destroy; override;

  function AddPage(); virtual;

  procedure DeletePage();

  function FindNextPage();

  procedure GetChildren(); override;

  function IndexOfTabAt();

  procedure SelectNextPage();

  function TabRect();

  property ActivateNewDocked: Boolean; [rw]

  property ActivePage: TKTabSheet; [rw]

  property ActivePageIndex: Integer; [rw]

  property DisabledImages: TImageList; [rw]

  property HotTrack: Boolean; [rw]

  property Images: TImageList; [rw]

  property ImageIndex []: Integer; [r]

  property PageCount: Integer; [r]

  property Pages []: TKTabSheet; [r]

  property TabPosition: TTabPosition; [rw]

  property TabHeight: Integer; [rw]

  property TabPanel: TKTabPanel; [rw]

  property TabPanelOptions: TKTabPanelOptions; [rw]

  property TabWidth: Integer; [rw]

  property OnChange: TNotifyEvent; [rw]

  property OnChanging: TTabChangingEvent; [rw]

  property OnGetImageIndex: TTabGetImageEvent; [rw]

  property OnTabClick: TKTabClickEvent; [rw]

  property OnTabCloseQuery: TKTabCloseQueryEvent; [rw]

end;

TKCustomPageControl

TKCustomControl

TObject