Разрушение модальной формы при деактивации

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

procedure TForm1.AppDeactivate(Sender: TObject);
var
  hw: HWnd;
  CurTask: THandle;
  WndStyle: Longint;
begin
  CurTask := GetWindowTask(handle);
  hw := GetWindow(GetDesktopWindow, GW_CHILD);
  while GetWindowTask(hw) <> CurTask do
    hw := GetWindow(hw, GW_HWNDNEXT);
  while (hw <> handle) and (GetWindowTask(hw) = CurTask) do
  begin
    PostMessage(hw, WM_Close, 0, 0);
    hw := GetWindow(hw, GW_HWNDNEXT);
  end;
end;

Программный код на Delphi, который обрабатывает деактивацию приложения. Когда пользователь переключается на другое окно или закрывает приложение, эта процедура вызывается.

Процедура использует несколько функций Windows API для достижения своих целей:

1. GetWindowTask: получает задачу, связанную с handle окна.
2. GetWindow: получает handle окна на основе указанного типа и handle родительского окна.
3. PostMessage: отправляет сообщение в handle окна.

Давайте рассмотрим, что процедура делает в деталях:

1. Она сначала получает текущую задачу (то есть основное окно приложения) с помощью GetWindowTask.
2. Затем она итерирует все дочерние окна desktop window, пока не найдет одно, которое принадлежит к той же задаче, что и основное окно.
3. Когда она находит такое окно, она заходит в цикл, где:
   • Отправляет сообщение WM_Close в окно (это закроет любые модальные формы).
   • Получает handle следующего sibling window с помощью GetWindow(GW_HWNDNEXT).
4. Цикл продолжается, пока не будет достигнуто основное окно handle или не останется более окон в той же задаче.

Цель этой процедуры - уничтожить любые оставшиеся модальные формы при деактивации приложения. Отправляя сообщение WM_Close, она эффективно закрывает эти формы и освобождает любые системные ресурсы, которые они могут использовать.

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

Вот пример:

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
   // Выполните любые необходимые очистки или уничтожение здесь
  FreeAndNil(Form2);  // Уничтожьте Form2, например
end;

В этом примере, когда форма закрывается (FormClose событие), вы можете выполнить любые необходимые очистки или уничтожение логику. Обратите внимание, что FreeAndNil используется для безопасного уничтожения формы и освобождения любых системных ресурсов, которые она может использовать.

Разрушение модальной формы при деактивации - статья описывает процедуру TForm1.AppDeactivate, которая используется для закрытия всех окон при деактивации приложения.

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

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

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