| Class TWABD_Session (unit WABD_Objects) |
TComponent
| Constructors |
constructor Create(AOwner: TComponent);| Functions |
destructor Destroy;
procedure LogOff;
procedure Loaded;
procedure Notification(AComponent: TComponent; Operation: TOperation);
function ProcessInput(InputList: TStrings): string;| Properties |
property About : TWABDAbout
property DLLName : string
property MainForm : TWABD_Form
property TimeOutLength : integer
property CurForm : TWABD_Form
property SessionID : integer| Events |
event OnException : TWABD_OnException
event OnFirstLogon : TNotifyEvent
event OnLogOff : TNotifyEvent
event OnTimeOut : TNotifyEvent| Variables |
CreateTime : TDateTime;
DidLogOff : boolean;
FAbout : TWABDAbout;
FCurForm : TWABD_Form;
FDLLName : string;
FExcept : TWABD_OnException;
FLogOff : TNotifyEvent;
FLogon : TNotifyEvent;
FMainForm : TWABD_Form;
FSessionID : integer;
FTimeLen : integer;
FTimeOut : TNotifyEvent;
LastAccess : TDateTime;
LocalError : string;
NewForm : TWABD_Form;| Constructors |
constructor Create(AOwner: TComponent);************************************************************************ TWABD_Session
| Functions |
destructor Destroy;
procedure LogOff;NewForm might change
procedure Loaded;
procedure Notification(AComponent: TComponent; Operation: TOperation);procedure Lock; procedure Unlock;
function ProcessInput(InputList: TStrings): string;set by "ProcessInput" if the current form can't set it's properties or call it's handler
| Properties |
property About : TWABDAbout
property DLLName : string
property MainForm : TWABD_Form
property TimeOutLength : integer
property CurForm : TWABD_Form
property SessionID : integer| Events |
event OnException : TWABD_OnException
event OnFirstLogon : TNotifyEvent
event OnLogOff : TNotifyEvent
event OnTimeOut : TNotifyEvent| Variables |
CreateTime : TDateTime;
DidLogOff : boolean;
FAbout : TWABDAbout;
FCurForm : TWABD_Form;
FDLLName : string;
FExcept : TWABD_OnException;To "Show" new forms
FLogOff : TNotifyEvent;
FLogon : TNotifyEvent;
FMainForm : TWABD_Form;
FSessionID : integer;
FTimeLen : integer;
FTimeOut : TNotifyEvent;
LastAccess : TDateTime;
LocalError : string;
NewForm : TWABD_Form;