Class TRegisterForms (unit RegForms)

Inherits from

TComponent

Constructors


constructor Create(AComponent:TComponent);

Public declarations


Functions

procedure Free;

Set Title to title in title property } {$ENDIF

procedure Loaded;


procedure LoadFormInformation(Sender:TObject);

finally

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

Protected declarations

function GetEnabled:Boolean;


procedure SetEnabled(Value:Boolean);

Set application title without version information

Properties

property Company : String

Published declarations } {$IFDEF WIN32

property Enabled : boolean


property RootKey : THKEY


Events

event OnRead : TRegisterEvent


event OnWrite : TRegisterEvent


Variables

FCompany : string;


FEnabled : Boolean;


FMainFormOnClose : TCloseEvent;


FMainFormOnShow : TNotifyEvent;

Private declarations

FOnRead : TRegisterEvent;


FOnWrite : TRegisterEvent;


FRootKey : THKEY;


FTitle : string;



Constructors


constructor Create(AComponent:TComponent);

Public declarations


Functions


procedure Free;

Set Title to title in title property } {$ENDIF


procedure Loaded;


procedure LoadFormInformation(Sender:TObject);

finally


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

Protected declarations


function GetEnabled:Boolean;


procedure SetEnabled(Value:Boolean);

Set application title without version information


Properties


property Company : String

Published declarations } {$IFDEF WIN32


property Enabled : boolean


property RootKey : THKEY


Events


event OnRead : TRegisterEvent


event OnWrite : TRegisterEvent


Variables


FCompany : string;


FEnabled : Boolean;


FMainFormOnClose : TCloseEvent;


FMainFormOnShow : TNotifyEvent;

Private declarations


FOnRead : TRegisterEvent;


FOnWrite : TRegisterEvent;


FRootKey : THKEY;


FTitle : string;