TutParentForm: Key Facts

This is where the "tear-out" feature is implemented, where you can click on the border of a panel and it will pop-up into a standalone window. The paStartDrag method pops it out, and calling the form's close event pops it back in.
You can always assume that pa.parent is a TTabSheet unless the form has been detached.

A TPanel named 'pa' is required. Here is the interface :

type
  TutParentForm = class(TtpSplitterForm)
    pa: TPanel;
    procedure paStartDrag(Sender: TObject; var DragObject: TDragObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormActivate(Sender: TObject);
  private
    { Private declarations }
    fRestorer: TFormRestorer;
    procedure Detach;  { moved to public Nov. 30, 1998 }
  protected
    procedure CreateParams(var Params: TCreateParams); override;
  public
    { Public declarations }
    constructor Create(aOwner:Tcomponent); override;
    procedure Save(Restorer:TFormRestorer); virtual;
    procedure Load(Restorer:TFormRestorer); virtual;
    end;