TExtendedNotebookMDI

type TExtendedNotebookMDI = class(TExtendedNotebook)

protected

  function CanChange; override;

  procedure DoChange; override;

  procedure Loaded; override;

  procedure RemovePage(); override;

  procedure msg_ClosePage(); message;

  procedure MouseDown(); override;

  procedure KeyDown(); override;

  procedure Notification(); override;

public

  constructor Create(); override;

  destructor Destroy; override;

  procedure DoCloseTabClicked(); override;

  function CreateFormInNewPage();

  procedure ShowFormInPage();

  function FindFormInPages();

  function CanCloseAllPages;

  function CanCloseAPage();

  procedure RestoreLastFocusedControl;

  procedure ScrollPage();

  procedure CheckInterface;

  procedure UpdateTabsMenuItem;

  procedure CloseAllTabs;

published

  property BackgroundImage: TImage; [rw]

  property BackgroundCorner: TMDIBackgroundCorner; [rw]

  property MainMenu: TMainMenu; [rw]

  property CloseTabButtom: TMDICloseTabButtom; [rw]

  property MDIActions: TMDIActions; [rw]

  property MDIOptions: TMDIOptions; [rw]

  property ShortCutClosePage: TShortCut; [rw]

  property FixedPages: Integer; [rw]

end;

TExtendedNotebookMDI

TExtendedNotebook

TObject