| Class TCustomPageControl98 (unit PageControl98) |
| Constructors |
constructor Create(AOwner: TComponent);| Functions |
destructor Destroy;
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);
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);
procedure DeleteTab(Page: TTabSheet98);
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;