Class TSaveForm (unit uSaveForm)

Inherits from

TComponent

Constructors


constructor Create(AOwner: TComponent);

Public declarations

TSaveForm



Functions

destructor Destroy;


procedure RestoreState;


procedure SaveState;


procedure Loaded;

Protected declarations

procedure DoRestore(Sender: TObject);


procedure DoWinHook(var Message: TMessage; var CallDef: Boolean);


function Form: TForm;


function GetEnabled: Boolean;


procedure SetEnabled(NewCond: Boolean);


Properties

property Enabled : Boolean

Published declarations

property RegistryKey : string


Events

Variables

FRegKey : String;

Private declarations

OldRestoreEvent : TNotifyEvent;


RestoreToMax : Boolean;


WinHook : TWindowHook;



Constructors


constructor Create(AOwner: TComponent);

Public declarations

TSaveForm


Functions


destructor Destroy;


procedure RestoreState;


procedure SaveState;


procedure Loaded;

Protected declarations


procedure DoRestore(Sender: TObject);


procedure DoWinHook(var Message: TMessage; var CallDef: Boolean);


function Form: TForm;


function GetEnabled: Boolean;


procedure SetEnabled(NewCond: Boolean);


Properties


property Enabled : Boolean

Published declarations


property RegistryKey : string


Events


Variables


FRegKey : String;

Private declarations


OldRestoreEvent : TNotifyEvent;


RestoreToMax : Boolean;


WinHook : TWindowHook;