Class TCustomPageControl98 (unit PageControl98) |
Inherits from
TCustomTabControl98
constructor Create(AOwner: TComponent);
- TCustomPageControl98
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);
property ActivePage : TTabSheet98
property PageCount : Integer
property Pages : TTabSheet98
FActivePage : TTabSheet98;
FLastOne : TTabSheet98;
FPages : TList;
constructor Create(AOwner: TComponent);
TCustomPageControl98
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);
property ActivePage : TTabSheet98
property PageCount : Integer
property Pages : TTabSheet98
FActivePage : TTabSheet98;
FLastOne : TTabSheet98;
FPages : TList;