Запоминание/восстановление размеров и статуса окна при запуске/закрытии программы

Posted by obzor under Delphi

Не сложно найти в интернете как при закрытии сохранить в ini, а при открытии восстановить размеры окна. Не сложно предположить, что так же можно запомнить и статус окна, записав в ini переменную, отвечающую за WindowState.

Если при работе с программой форму развернуть, а потом свернуть — она примет предыдущие размеры и положение. Однако если при развёрнутом виде форму закрыть с записью размеров и положения — запишутся значения, соответствующие максимальному размеру окна и верхней левой его позиции. Соответственно, если после запуска окно свернуть — оно не примет те размеры и положение, которые были перед разворачиванием, а останется в углу и максимальным.

Может, кто-нибудь знает как с этим бороться?

Arigato

У меня такое вроде работает:

type
  TForm1 = class(TForm)
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure FormCanResize(Sender: TObject; var NewWidth,
      NewHeight: Integer; var Resize: Boolean);
  private
    winLeft, winTop, winWidth, winHeight: Integer;
  public
    { Public declarations }
  end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var
  Ini: TIniFile;
begin
  Ini := TIniFile.Create(ExtractFilePath(Application.ExeName) + 'config.ini');
  try
    Ini.WriteInteger('WINDOW', 'Left', winLeft);
    Ini.WriteInteger('WINDOW', 'Top', winTop);
    Ini.WriteInteger('WINDOW', 'Width', winWidth);
    Ini.WriteInteger('WINDOW', 'Height', winHeight);
    Ini.WriteBool('WINDOW', 'Maximized', WindowState = wsMaximized);
  finally
    Ini.Free;
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
var
  Ini: TIniFile;
begin
  Ini := TIniFile.Create(ExtractFilePath(Application.ExeName) + 'config.ini');
  try
    Left := Ini.ReadInteger('WINDOW', 'Left', Left);
    Top := Ini.ReadInteger('WINDOW', 'Top', Top);
    Width := Ini.ReadInteger('WINDOW', 'Width', Width);
    Height := Ini.ReadInteger('WINDOW', 'Height', Height);
    winLeft := Left;
    winTop := Top;
    winWidth := Width;
    winHeight := Height;
    if Ini.ReadBool('WINDOW', 'Maximized', False) then
      WindowState := wsMaximized
  finally
    Ini.Free;
  end;
end;

procedure TForm1.FormCanResize(Sender: TObject; var NewWidth,
  NewHeight: Integer; var Resize: Boolean);
begin
  if (Left > 0) or (Top > 0) then begin
    winLeft := Left;
    winTop := Top;
    winWidth := Width;
    winHeight := Height;
  end;
end;

тема на форуме

Случайные статьи

• Вывод каждой второй строки из memo
• Canvas и полупрозрачный .png
• Мониторинг бэкапов
• Как распечатать текст из Memo?
• Вывод содержимого папки
• Ошибка в потоке
• Как свойством BitMap.ScanLine проверить изображение (200х200 пкс) на наличие черных пикселей?
• Подсчитать количество секций в инифайле
• ассемблер под линукс
• Рассылка. Выпуск 88.