Class TApeForm (unit Ape)

Inherits from

TComponent

Constructors


constructor Create(AOwner:TComponent);

TApeForm


Functions

destructor Destroy;


function GetParentForm:TForm;


procedure Loaded;


procedure ActivateProc(Sender:TObject);


procedure CloseProc(Sender:TObject; var Action: TCloseAction);


procedure SetFormMode(FMode:ApeFormMode);


procedure SetSelectResult(FResult:string);


procedure ShowProc(Sender:TObject);


Properties

property FormMode : ApeFormMode


property SelectResult : string


Events

event onFirstShow : TApeShowProc


Variables

FFirstShow : TApeShowProc;


FFormMode : ApeFormMode;


FSelectResult : string;


oldActivateProc : TNotifyEvent;


oldCloseProc : TCloseEvent;


OldShowProc : TNotifyEvent;



Constructors


constructor Create(AOwner:TComponent);

TApeForm


Functions


destructor Destroy;


function GetParentForm:TForm;


procedure Loaded;


procedure ActivateProc(Sender:TObject);


procedure CloseProc(Sender:TObject; var Action: TCloseAction);


procedure SetFormMode(FMode:ApeFormMode);


procedure SetSelectResult(FResult:string);


procedure ShowProc(Sender:TObject);


Properties


property FormMode : ApeFormMode


property SelectResult : string


Events


event onFirstShow : TApeShowProc


Variables


FFirstShow : TApeShowProc;


FFormMode : ApeFormMode;


FSelectResult : string;


oldActivateProc : TNotifyEvent;


oldCloseProc : TCloseEvent;


OldShowProc : TNotifyEvent;