零代码保存窗口运行状态

一些比较专业的软件都有自动保存窗口运行状态的功能，具体的方法都是在窗口关闭前将其状态保存到注册表中或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.
　　此程序在PWINArray7＋Delphi5.0下通过