Class TFormSet (unit Formset) |
Inherits from
TTabSet
constructor Create(Owner: TComponent);
- -------------------------------- Create ----------------------------------
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.
Procedure TabClose(OldTabIndex: Integer);
------------------------------- TabClose ---------------------------------} { Release form if necessary
Procedure TabOpen(NewTabIndex: Integer);
-------------------------------- TabOpen ---------------------------------} { Change size of notebook or page as needed.
event OnChange : TTabChangeEvent
event OnClick : TNotifyEvent
event OnTabLoad : TTabLoadEvent
FOnChange : TTabChangeEvent;
FOnClick : TNotifyEvent;
FOnTabLoad : TTabLoadEvent;
InternalChange : Boolean;
OldTabIndex : Integer;
ParentHeight : Integer;
ParentWidth : Integer;
constructor Create(Owner: TComponent);
-------------------------------- Create ----------------------------------
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.
event OnChange : TTabChangeEvent
event OnClick : TNotifyEvent
event OnTabLoad : TTabLoadEvent
FOnChange : TTabChangeEvent;
FOnClick : TNotifyEvent;
FOnTabLoad : TTabLoadEvent;
InternalChange : Boolean;
OldTabIndex : Integer;
ParentHeight : Integer;
ParentWidth : Integer;