Форум программистов [Powered by Invision Power Board]

Код

TMyCustomForm = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    { Private declarations }
    FWindowMaximized: boolean;
    FWindowTop: integer;
    FWindowLeft: integer;
    FWindowWidth: integer;
    FWindowHeight: integer;
    procedure SetWindowPosition;
    procedure Load;
    procedure Save;
  public
    { Public declarations }
     procedure DoCreate; override;
    property WindowTop: integer read FWindowTop write FWindowTop;
    property WindowLeft: integer read FWindowLeft write FWindowLeft;
    property WindowWidth: integer read FWindowWidth write FWindowWidth;
    property WindowHeight: integer read FWindowHeight write FWindowHeight;
    property WindowMaximized: boolean read FWindowMaximized write FWindowMaximized;
  end;

//var
//  MyCustomForm: TMyCustomForm;

implementation

{$R *.dfm}

procedure TMyCustomForm.FormCreate(Sender: TObject);
begin
  inherited;
  Load;
  if WindowMaximized then
    self.WindowState := wsMaximized
  else
    SetWindowPosition;
end;

procedure TMyCustomForm.FormDestroy(Sender: TObject);
begin
  Save;
  inherited;
end;

procedure TMyCustomForm.Load;
var
  Config: TMemIniFile;
begin
  Config := TMemIniFile.Create(ExtractFilePath(ParamStr(0)) + '\config.ini');
  try
    WindowMaximized := Config.ReadBool(self.ClassName, 'Maximized', false);
    WindowTop := Config.ReadInteger(self.ClassName, 'Top', 10);
    WindowLeft := Config.ReadInteger(self.ClassName, 'Left', 10);
    WindowWidth := Config.ReadInteger(self.ClassName, 'Width', 1024);
    WindowHeight := Config.ReadInteger(self.ClassName, 'Height', 768);
  finally
    Config.Free;
  end;
end;

procedure TMyCustomForm.DoCreate;
begin
  inherited;
end;

procedure TMyCustomForm.Save;
var
  Config: TMemIniFile;
begin
  Config := TMemIniFile.Create(ExtractFilePath(ParamStr(0)) + '\config.ini');
  try
    Config.WriteBool(self.ClassName, 'Maximized', WindowMaximized);
    Config.WriteInteger(self.ClassName, 'Top', Top);
    Config.WriteInteger(self.ClassName, 'Left', Left);
    Config.WriteInteger(self.ClassName, 'Width', Width);
    Config.WriteInteger(self.ClassName, 'Height', Height);
    Config.UpdateFile;
  finally
    Config.Free;
  end;
end;

procedure TMyCustomForm.SetWindowPosition;
begin
  Top := WindowTop;
  Left := WindowLeft;
  Width := WindowWidth;
  Height := WindowHeight;
end;

end.


TMainForm = class(TMyCustomForm)
// ....
end;

procedure TMainForm.FormCreate(Sender: TObject);
begin
  inherited;
end;

procedure TMainForm.FormDestroy(Sender: TObject);
begin
  inherited;
end;