| Class TFormSet (unit Formset) |
TTabSet
| Constructors |
constructor Create(Owner: TComponent);| Functions |
procedure Click;
Function ConfigureTab(TabIndex: Integer): Boolean;
Procedure TabClose(OldTabIndex: Integer);
Procedure TabOpen(NewTabIndex: Integer);| Properties |
| Events |
event OnChange : TTabChangeEvent
event OnClick : TNotifyEvent
event OnTabLoad : TTabLoadEvent| Variables |
FOnChange : TTabChangeEvent;
FOnClick : TNotifyEvent;
FOnTabLoad : TTabLoadEvent;
InternalChange : Boolean;
OldTabIndex : Integer;
ParentHeight : Integer;
ParentWidth : Integer;| Constructors |
constructor Create(Owner: TComponent);-------------------------------- Create ----------------------------------
| Functions |
procedure Click;--------------------------------- Click ----------------------------------} { This is the main driver } { TabSet has already changed the TabIndex } { Undo the TabIndex change (causes recursion) } { If there was a tab/form displayed } { fire its CloseQuery } { If the form is not known for the new tab } { configure the new tab/form } { Fire the OnChange event } { Close the old tab } { Open the new tab } { Redo the TabIndex change (causes recursion) } { Fire the OnClick event } {----------------------------------------------------------------------------
Function ConfigureTab(TabIndex: Integer): Boolean;----------------------------- ConfigureTab -------------------------------} { If no FormTab object for this tab, create one. } { If FormTab.Form not known, call OnTabLoad to get one.
Procedure TabClose(OldTabIndex: Integer);------------------------------- TabClose ---------------------------------} { Release form if necessary
Procedure TabOpen(NewTabIndex: Integer);-------------------------------- TabOpen ---------------------------------} { Change size of notebook or page as needed. } { Set required properties on child form.
| Properties |
| Events |
event OnChange : TTabChangeEvent
event OnClick : TNotifyEvent
event OnTabLoad : TTabLoadEvent| Variables |
FOnChange : TTabChangeEvent;
FOnClick : TNotifyEvent;
FOnTabLoad : TTabLoadEvent;
InternalChange : Boolean;
OldTabIndex : Integer;
ParentHeight : Integer;
ParentWidth : Integer;