TplMDIForm

type TplMDIForm = class(TCustomPanel)

  TopBar: Tpanel;

  TopLeftBar: TplCSplitter;

  TopRightBar: TplCSplitter;

  BotLeftBar: TplCSplitter;

  BotRightBar: TplCSplitter;

  BotBar: TplCSplitter;

  LeftBar: TplCSplitter;

  RightBar: TplCSplitter;

  MenuBar: TplCPanel;

  Title: TLabel;

  ButtonClose: TSpeedButton;

  ButtonMaximize: TSpeedButton;

protected

  procedure Paint; override;

public

  procedure SizeBarMouseMove();

  procedure SizeBarMouseUp();

  constructor Create(); override;

  destructor Destroy; override;

  procedure SetTitleColor();

  procedure SetBorderColor();

  procedure SetTitleHeight();

  procedure SetBorderWdth();

  procedure RestoreSize;

  property onMaximize: TNotifyEvent; [rw]

  property onRestore: TNotifyEvent; [rw]

  property OnCloseQuery: TCloseQueryEvent; [rw]

  property onClose: TNotifyEvent; [rw]

  property onCaptionChange: TNotifyEvent; [rw]

published

  procedure Close;

  property DockedObject: TFrame; [rw]

  property Caption: string; [rw]

  property Maximized: Boolean; [rw]

  property WireframeMoveResize: Boolean; [rw]

  property Align;

  property Alignment;

  property Anchors;

  property AutoSize;

  property BorderSpacing;

  property BevelInner;

  property BevelOuter;

  property BevelWidth;

  property BorderWidth;

  property BorderStyle;

  property ChildSizing;

  property ClientHeight;

  property ClientWidth;

  property Color;

  property Constraints;

  property DockSite;

  property DragCursor;

  property DragKind;

  property DragMode;

  property Enabled;

  property Font;

  property FullRepaint;

  property ParentColor;

  property ParentFont;

  property ParentShowHint;

  property PopupMenu;

  property ShowHint;

  property TabOrder;

  property TabStop;

  property UseDockManager;

  property Visible;

  property OnClick;

  property OnDockDrop;

  property OnDockOver;

  property OnDblClick;

  property OnDragDrop;

  property OnDragOver;

  property OnEndDock;

  property OnEndDrag;

  property OnEnter;

  property OnExit;

  property OnGetSiteInfo;

  property OnGetDockCaption;

  property OnMouseDown;

  property OnMouseMove;

  property OnMouseUp;

  property OnResize;

  property OnStartDock;

  property OnStartDrag;

  property OnUnDock;

end;

TplMDIForm

TObject