Class TFormSet (unit Formset)

Inherits from

TTabSet

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.

Procedure TabClose(OldTabIndex: Integer);

------------------------------- TabClose ---------------------------------} { Release form if necessary

Procedure TabOpen(NewTabIndex: Integer);

-------------------------------- TabOpen ---------------------------------} { Change size of notebook or page as needed.

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;