Сохранение положения и размеров формы в Delphi: решение проблемы при блокировке сессии

Delphi , ОС и Железо , Windows

Иногда разработчики сталкиваются с проблемой, когда при блокировке сессии операционной системы Windows и последующем разблокировании, формы приложений, размещенные на нескольких мониторах, изменяют свое положение и размеры. Это стандартное поведение Windows, которое затрагивает большинство приложений. В данной статье мы рассмотрим, как можно сохранить исходные размеры и положение формы в приложении, написанном на Delphi.

Описание проблемы

Разработчик столкнулся с проблемой, что форма его приложения на Delphi XE2, размещенная на двух мониторах, изменяет свое положение и размеры после блокировки и разблокировки сессии Windows. Это происходит из-за системного поведения Windows, которое изменяет рабочую область при блокировке сессии.

Цель

Задача разработчика - либо восстановить исходное положение и размеры формы после разблокировки сессии, либо предотвратить изменение размеров формы до блокировки.

Решение проблемы

Разработчик уже провел ряд экспериментов, включая использование Spy++ для отслеживания сообщений Windows и регистрацию уведомлений о состоянии сессии. Однако попытки восстановить размеры формы с помощью SetWindowPos или изменения свойств формы не увенчались успехом.

Подтвержденное решение

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

Кроме того, для предотвращения изменений положения формы при блокировке и разблокировке сессии используется сообщение WM_WINDOWPOSCHANGING. Важно отметить, что если форма находится в максимизированном состоянии, восстановление исходных размеров не производится.

Пример кода на Object Pascal, демонстрирующий решение проблемы:

unit Unit1;

interface

uses
  Winapi.Windows,
  Winapi.Messages,
  Vcl.Forms;

type
  TForm1 = class(TForm)
  private
    FSessionIsLocked: Boolean;
    FSessionWasUnlocked: Boolean;
    FRestoreNormalRect: Boolean;
    FLeft, FTop, FWidth, FHeight: Integer;

    procedure WMWTSSessionChange(var Msg: TMessage); message WM_WTSSESSION_CHANGE;

  protected
    procedure CreateWnd; override;
    procedure DestroyWnd; override;

    procedure WMExitSizeMove(var Msg: TMessage); message WM_EXITSIZEMOVE;
    procedure WMPosChanging(var Msg: TWmWindowPosChanging); message WM_WINDOWPOSCHANGING;
    procedure WMSize(var Msg: TWMSize); message WM_SIZE;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

// Процедуры CreateWnd, DestroyWnd, WMExitSizeMove, WMPosChanging, WMSize
// реализуются аналогично приведенному выше примеру кода.

end.

Альтернативное решение

Также существует альтернативный способ сохранения состояния формы с помощью методов TMemoryStream.WriteComponent и TMemoryStream.ReadComponent, вызываемых в событиях OnDeactivate и OnActivate соответственно. Это позволяет сохранять состояние формы при ее деактивации и восстанавливать при активации.

Заключение

В статье были рассмотрены два метода решения проблемы изменения положения и размеров формы в приложении Delphi при блокировке и разблокировке сессии Windows. Разработчикам рекомендуется выбрать наиболее подходящий способ в зависимости от конкретных требований и условий использования приложения.

Создано по материалам из источника по ссылке.

Проблема: При блокировке сессии Windows формы на Delphi, размещенные на нескольких мониторах, изменяют свое положение и размеры, что требует решения для сохранения исходных параметров.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Windows ::