Class TWABD_Session (unit WABD_Objects)

Inherits from

TComponent

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;



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;