Class TCustomPageControl98 (unit PageControl98)

Inherits from

TCustomTabControl98

Constructors


constructor Create(AOwner: TComponent);

TCustomPageControl98


Functions

destructor Destroy;

property TabIndex;

function FindNextPage(CurPage: TTabSheet98; GoForward, CheckTabVisible: Boolean): TTabSheet98;


procedure SelectNextPage(GoForward: Boolean);


procedure AssociateImages;


procedure Change;


procedure GetChildren(Proc: TGetChildProc {$ifdef VER100}; Root: TComponent {$endif});


procedure SetChildOrder(Child: TComponent; Order: Integer);

*** You must be sure that the ChangeActivePage succeeded, and only then you can change the value of TabIndex.

procedure SetTabPosition (Value: TTabPosition);


procedure SetTransparent(Value: Boolean);


procedure ShowControl(AControl: TControl);


procedure ChangeActivePage(Page: TTabSheet98);


procedure CMDesignHitTest(var Message: TCMDesignHitTest);


procedure CMDialogKey(var Message: TCMDialogKey);


procedure CNNotify(var Message: TWMNotify);

MessageBeep(MB_Ok);

procedure DeleteTab(Page: TTabSheet98);

*** You must be sure that the ParentForm.

function GetPage(Index: Integer): TTabSheet98;


function GetPageCount: Integer;


procedure InsertPage(Page: TTabSheet98);


procedure InsertTab(Page: TTabSheet98);


procedure MoveTab(CurIndex, NewIndex: Integer);


procedure RemovePage(Page: TTabSheet98);


procedure SetActivePage(Page: TTabSheet98);


procedure UpdateActivePage;


procedure UpdateTab(Page: TTabSheet98);


procedure WMNotify(var Message: TWMNotify);


Properties

property ActivePage : TTabSheet98


property PageCount : Integer


property Pages : TTabSheet98


Events

Variables

FActivePage : TTabSheet98;


FLastOne : TTabSheet98;


FPages : TList;



Constructors


constructor Create(AOwner: TComponent);

TCustomPageControl98


Functions


destructor Destroy;

property TabIndex;


function FindNextPage(CurPage: TTabSheet98; GoForward, CheckTabVisible: Boolean): TTabSheet98;


procedure SelectNextPage(GoForward: Boolean);


procedure AssociateImages;


procedure Change;


procedure GetChildren(Proc: TGetChildProc {$ifdef VER100}; Root: TComponent {$endif});


procedure SetChildOrder(Child: TComponent; Order: Integer);

*** You must be sure that the ChangeActivePage succeeded, and only then you can change the value of TabIndex.


procedure SetTabPosition (Value: TTabPosition);


procedure SetTransparent(Value: Boolean);


procedure ShowControl(AControl: TControl);


procedure ChangeActivePage(Page: TTabSheet98);


procedure CMDesignHitTest(var Message: TCMDesignHitTest);


procedure CMDialogKey(var Message: TCMDialogKey);


procedure CNNotify(var Message: TWMNotify);

MessageBeep(MB_Ok);


procedure DeleteTab(Page: TTabSheet98);

*** You must be sure that the ParentForm.ActiveControl succeeded, only when ParentForm.ActiveControl = FActivePage and then continue, else exit from here.


function GetPage(Index: Integer): TTabSheet98;


function GetPageCount: Integer;


procedure InsertPage(Page: TTabSheet98);


procedure InsertTab(Page: TTabSheet98);


procedure MoveTab(CurIndex, NewIndex: Integer);


procedure RemovePage(Page: TTabSheet98);


procedure SetActivePage(Page: TTabSheet98);


procedure UpdateActivePage;


procedure UpdateTab(Page: TTabSheet98);


procedure WMNotify(var Message: TWMNotify);


Properties


property ActivePage : TTabSheet98


property PageCount : Integer


property Pages : TTabSheet98


Events


Variables


FActivePage : TTabSheet98;


FLastOne : TTabSheet98;


FPages : TList;