[Overview][Constants][Types][Classes][Procedures and functions][Variables][Index] | Reference for unit 'Forms' (#lcl)

# TCustomDockForm

[Properties (by Name)] [Methods (by Name)] [Events (by Name)]

A floating DockSite used to make TControls float.

## Declaration

Source position: forms.pp line 961

`type TCustomDockForm = class(TCustomForm)`
`protected`
`procedure DoAddDockClient(); override;` |  | Adds Client as a child control which fills the entire area for the docked form.
`procedure DoRemoveDockClient(); override;` |  | Removes the specified form from the list of docked clients, and releases the dock form when all docked clients have been removed.
`procedure GetSiteInfo(); override;` |  | Disallows docking of a second client.
`procedure Loaded; override;` |  | Tries to make all child controls dockclients. This is of little use in practice, a floating host docksite should have no child controls.
`public`
`constructor Create(); override;` |  | Constructor for the class instance.
`property AutoScroll: Boolean;` |  | Indicates if the form can automatically show or hide its scroll bars.
`property BorderStyle: TFormBorderStyle;` |  | The border style affects the title bar, border, icons, and resize behavior of the form.
`property FormStyle: TFormStyle;` |  | Indicates the style for the form.
`published`
`property PixelsPerInch: Integer;` |  | Run-time Pixels Per Inch for the designer surface.
`end;`

## Inheritance

`TCustomDockForm` |  | A floating DockSite used to make TControls float.
`TCustomForm` |  | The base type for TForm classes.
`TCustomDesignControl` |  | Provides a designer surface for scaling and layout of its child controls.
`TScrollingWinControl` |  | Implements a windowed control with scroll bars.
`TCustomControl` |  | The base class for windowed controls which paint themselves.
`TWinControl` |  | Implements a windowed control which can contain other child controls.
`TControl` |  | The base class for visible controls.
`TLCLComponent` |  | The base class for LCL components which have an associated widget.
`TComponent`
?
`TObject`