自动保存窗体状态的控件

一些比较专业的软件都有自动保存窗口运行状态的功能，具体的方法都是在窗口关闭前将其状态保存到注册表中或ini文件中，而这些代码一般都是相同的，所以可以将其集中在一起，重复使用。本文将相应的代码用一个控件TPosition来实现，使用时只要将此控件放到相应的Form上即可，不需要增加任何代码，从而实现了“零”代码保存窗口运行状态。

　　下面是这个控件的主要实现文件Position.pas的内容，包括相应的注释。为了保持注册表的整洁，这里把信息保存到ini文件中。

　　unit Position;

　　interface

　　uses

　　Forms, Classes, SysUtils, Windows, IniFiles;

　　type

　　//TPosition是不可视控件，由TComponent继承

　　TPosition = class(TComponent)

　　private

　　//用此变量保存父窗口的OnDestroy事件

　　FOnDestroy: TNotifyEvent;

　　//用此函数替换父窗口的OnDestroy事件

　　procedure FormDestroy(Sender: TObject);

　　protected

　　//在控件加载时恢复父窗口状态

　　procedure Loaded; override;

　　end;

　　//恢复窗口位置函数

　　procedure ReadFormPos(Form:TForm);

　　//保存窗口位置函数

　　procedure SaveFormPos(Form:TForm);

　　//控件注册函数

　　procedure Register;

　　implementation

　　//连接此控件的图标

　　{＄R Position.Dcr}

　　//恢复窗口位置函数，窗口状态存放在ini文件中。

　　procedure ReadFormPos(Form : TForm);

　　var

　　RegFile : TIniFile;

　　SectName : string;

　　begin

　　//ini文件中存放Form信息的节名称

　　SectName := Form.Name ＋ ' Position';

　　//打开与可执行文件名相同的ini文件

　　RegFile := TIniFile.Create(

　　ChangeFileExt(Application.ExeName,'.ini'));

　　//恢复窗口状态

　　with Form do begin

　　Left := RegFile.ReadInteger(SectName,'Left',Left);

　　Top := RegFile.ReadInteger(SectName,'Top',Top);

　　Width := RegFile.ReadInteger(SectName,'Width',Width);

　　Height := RegFile.ReadInteger(SectName,'Height',Height);

　　WindowState := TWindowState(

　　RegFile.ReadInteger(SectName,'WindowState',0));

　　end;

　　//关闭ini文件

　　RegFile.Free;

　　end;

　　//保存窗口位置函数

　　procedure SaveFormPos(Form:TForm);

　　var

　　RegFile : TIniFile;

　　SectName : string;

　　begin

　　SectName := Form.Name ＋ ' Position';

　　RegFile := TIniFile.Create(

　　ChangeFileExt(Application.ExeName,'.ini'));

　　with Form do begin

　　RegFile.WriteInteger(SectName,'WindowState',

　　integer(WindowState));

　　//最大化时，不保存窗口位置

　　if WindowState <> wsMaximized then begin

　　RegFile.WriteInteger(SectName,'Left',Left);

　　RegFile.WriteInteger(SectName,'Top',Top);

　　RegFile.WriteInteger(SectName,'Width',Width);

　　RegFile.WriteInteger(SectName,'Height',Height);

　　end;

　　//当要保存状态的窗口是程序主窗口时，要特殊处理。因为主窗口收到最小化消息时，只是把此消息转至Application处理，本身并不最小化。所以我们要判断Application的状态。

　　if Form = Application.MainForm then begin

　　if IsIconic(Application.Handle) then begin

　　Reg File.Write Integer(Sect Name,'WindowState',

　　Integer(wsMinimized));

　　end;

　　end;

　　end;

　　RegFile.Free;

　　end;

　　//注册控件

　　procedure Register;

　　begin

　　RegisterComponents('XDCtls', [TPosition]);

　　end;

　　//TPositon类的实现

　　//当主窗口Destroy时，调用此函数，此函数又调用保存的OnDestoy事件处理函数

　　procedure TPosition.FormDestroy(Sender: TObject);

　　begin

　　SaveFormPos(Owner as TForm);

　　if Assigned(FOnDestroy) then FOnDestroy(Sender);

　　end;

　　//控件加载时，恢复父窗口位置，并对父窗口的OnDestroy事件进行替换

　　procedure TPosition.Loaded;

　　begin

　　inherited Loaded;

　　//非设计状态才进行处理

　　if not (csDesigning in Componentstate) then begin

　　ReadFormPos(Owner as TForm);

　　FOnDestroy := (Owner as TForm).OnDestroy;

　　(Owner as TForm).OnDestroy := FormDestroy;

　　end;

　　end;

　　end.

　　完成此单元后，新建一个Package，将此单元包含在其中，编译、安装即可。资源文件Position.dcr，可自行创建合适的图标。使用时，只要将这个控件放到相应的Form即可。下面是我测试时的窗体代码，不用加任何语句就可以自动保存窗体状态。

　　unit Unit1;

　　interface

　　uses

　　Windows, Messages, SysUtils, Classes, Graphics,

　　Controls, Forms, Dialogs,Position;

　　type

　　TForm1 = class(TForm)

　　Position1: TPosition;

　　private

　　public

　　end;

　　var

　　Form1: TForm1;

　　implementation

　　{＄R ＊.DFM}

　　end.

　　此程序在PWIN97＋Delphi5.0下通过