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

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;

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

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

• Функция с переменным количеством параметров
• Как отловить изменение раскладки клавы (ru/en или en/ru)?
• Компилятор домашнего приготовления. Часть 1
• Smtp клиент на Visual C++. Отправить email
• Узнать версию exe файла
• Вставить картинку в excel из буфера обмена
• Автоматическое сохранение текста из Memo
• Как эффективнее обрабатывать большой файл по кускам?
• Как следить за своей квартирой через веб IP камеру
• Как прокрутить скролл в TMemo на начало?