formauto.pas

< Delphi网络通信协议分析与应用实现>>一书的源代码。

unit FormAuto;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  FormPos;

type
  TAutoForm = class(TForm)
    procedure FormShow(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    FFormPosFlag : Boolean;
  protected
    FIniFilename : string;
    FSectionName : string;
    FKeyName     : string;
  public
    constructor Create(AOwner : TComponent); override;
  end;

var
  AutoForm: TAutoForm;

implementation

{$R *.DFM}


{* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *}
constructor TAutoForm.Create(AOwner : TComponent);
begin
    Inherited Create(AOwner);
    FSectionName := 'Windows';
    FKeyName := Name;
    FIniFileName := Copy(Application.ExeName, 1,
                         Length(Application.ExeName) - 3) + 'ini';
end;


{* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *}
procedure TAutoForm.FormShow(Sender: TObject);
begin
    if not FFormPosFlag then begin
        FFormPosFlag := TRUE;
        LoadFormPos(Self, FIniFilename, FSectionName, FKeyName);
    end;
end;


{* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *}
procedure TAutoForm.FormDestroy(Sender: TObject);
begin
    SaveFormPos(Self, FIniFilename, FSectionName, FKeyName);
end;


{* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *}

end.

{* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *}