Как исправить нежелательное поведение окон в MDI-приложениях на Delphi 12: обходные пути

Delphi , Программа и Интерфейс , Модальные формы

Вопрос о проблеме с управлением окнами в MDI-приложениях на Delphi 12 является актуальным для разработчиков, использующих этот подход в своих продуктах. Как отметил Dave Nottage, проблема заключается в изменении обработки сообщений для форм, что привело к нежелательному изменению поведения окон при их скрытии и показе. Рассмотрим возможные решения, опираясь на предоставленный контекст.

Решение с использованием события FormClose

DelphiUdIT предложил добавить обработчик события FormClose в каждый дочерний форму для предотвращения их закрытия:

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action := TCloseAction.caHide;
end;

Этот подход позволяет "скрыть" форму, не закрывая её полностью, что сохраняет состояние формы и её компонентов.

Решение с освобождением форм

Brian Evans предложил освобождать формы вместо их скрытия. Однако это может привести к потере состояния, которое можно преодолеть, сохраняя и загружая состояние формы между запусками программы. Сохранение и загрузка состояния формы может быть реализовано с помощью записей или более продвинутых структур данных, которые будут содержать все необходимые данные для восстановления состояния формы.

Пример сохранения и загрузки состояния формы

type
  TFormState = record
    Component1Value: Integer;
    Component2Value: TDateTime;
    // Другие поля для компонентов, состояние которых нужно сохранить
  end;

procedure SaveFormState(const AForm: TForm; const AFileName: string);
var
  State: TFormState;
begin
  with AForm do
  begin
    State.Component1Value := Component1.Value;
    State.Component2Value := Component2.Value;
    // Заполнение полей State данными из компонентов формы
  end;
  with TFileStream.Create(AFileName, fmCreate) do
  try
    Write(State, SizeOf(State));
  finally
    Free;
  end;
end;

function LoadFormState(const AForm: TForm; const AFileName: string): Boolean;
var
  State: TFormState;
begin
  Result := False;
  with TFileStream.Create(AFileName, fmOpenRead or fmShareDenyNone) do
  try
    if Size > SizeOf(State) then
    begin
      Read(State, SizeOf(State));
      with AForm do
      begin
        Component1.Value := State.Component1Value;
        Component2.Value := State.Component2Value;
        // Загрузка данных из State в компоненты формы
      end;
      Result := True;
    end;
  finally
    Free;
  end;
end;

Заключение

Проблема с управлением окнами в MDI-приложениях на Delphi 12 может быть решена с помощью различных обходных путей, включая использование события FormClose для имитации скрытия окон и сохранение/загрузку состояния форм. Выбор метода зависит от конкретных требований приложения и готовности разработчика использовать дополнительные механизмы для сохранения данных, такие как файлы состояния.

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

Проблема с управлением окнами в MDI-приложениях на Delphi 12 связана с изменением обработки сообщений для форм, что вызывает изменение поведения окон при их скрытии и показе, и предлагаются решения, такие как использование события FormClose для имитации

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

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

:: Главная :: Модальные формы ::