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

# TCustomPage

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

TCustomPage: The base type for Page

## Declaration

Source position: extctrls.pp line 52

`type TCustomPage = class(TWinControl)`
``
`class procedure WSRegisterClass; override;` |  | WSRegisterClass - Register this Class for the current Widget Set
`protected`
`procedure WMPaint(); message;` |  | WMPaint - LCL Message for Paint
`procedure SetParent(); override;` |  | Find who the parents are and store the information
`property Flags: TPageFlags; [rw]` |  |
`procedure CMHitTest(); message;` |  | Control Message for Hit Test
`function GetPageIndex;` |  | GetPageIndex - returns the index of the current page
`procedure SetPageIndex();` |  | SetPageIndex - specifies an index for the current page
`function DialogChar(); override;` |  | DialogChar - a LCL Key Message; returns True if a Dialog character has an associated message
`procedure DoHide; virtual;` |  | DoHide - perform the code for the OnHide event handler
`procedure DoShow; virtual;` |  | DoShow - perform the code for the OnShow event handler
`procedure DestroyHandle; override;` |  | DestroyHandle - removes the handle for this window
`procedure RealSetText(); override;`
`public`
`constructor Create(); override;` |  | Create - constructor for TCustomPage: calls inherited Create then initialises style, visibility, alignment and caption
`function CanTab; override;` |  | CanTab - if True, the Tab key can be used to navigate to this control
`function IsControlVisible; override;` |  | Is the control visible on the current desktop?
`function HandleObjectShouldBeVisible; override;`
`function VisibleIndex;` |  | VisibleIndex - returns the index number of a visible page
`property PageIndex: Integer; [rw]` |  | PageIndex - integer index value for this page in the notebook
`property TabVisible: Boolean; [rw]` |  | TabVisible - is the Tab for this page visible?
`property ImageIndex: TImageIndex; [rw]` |  | ImageIndex - integer index value for the image associated with this page
`property Left; [s]` |  | Left - the coordinate of the left edge of the control
`property Top; [s]`
`property Width; [s]` |  | Width - the horizontal dimension of the control
`property Height; [s]` |  | Height - the vertical dimension of the control
`property TabOrder; [s]` |  | The place this control occupies in the list of tabs
`property Visible; [s]` |  | Visible - can the control be seen?
`property OnHide: TNotifyEvent; [rw]` |  | OnHide - event handler for hiding this page in a notebook
`property OnShow: TNotifyEvent; [rw]` |  | OnShow - event handler for showing (making visible) this page of a notebook
`end;`

## Inheritance

`TCustomPage` |  | TCustomPage: The base type for Page
`TWinControl`
`TControl`
`TLCLComponent` |  | TLCLComponent - base class for LCL components
`TComponent,IUnknown,IInterfaceComponentReference`
`TPersistent`
`TObject`

## Description

TCustomPage: The base type for the tabbed pages found in notebooks

## See also

Multi-PageControls |  | Multi-PageControls - controls that offer a selection of alternative pages for display

The latest version of this document can be found at lazarus-ccr.sourceforge.net .