Как правильно назначить обработчик события закрытия дочернего окна MDI в Delphi?

Delphi , Компоненты и Классы , Свойства и События

При работе с многооконными приложениями в среде Delphi часто возникает необходимость управления событиями закрытия дочерних окон. В частности, при динамическом создании дочерних форм в коде может потребоваться назначение обработчика события OnClose. Рассмотрим, как это можно сделать на примере.

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

Допустим, у нас есть основная форма с кнопкой, при нажатии на которую создаются дочерние формы. Мы хотим, чтобы при закрытии каждой из этих форм происходило освобождение ресурсов, для чего и нужно назначить соответствующий обработчик события OnClose.

Пример кода

procedure TForm1.Button1Click(Sender: TObject);
var
  AForm : array [1..5] of TForm;
  i : Integer;
begin
  For i := 1 to 5 do begin
    AForm[i] := TForm.Create(nil);
    with AForm[i] do begin
      // Важно: не указывать Parent, так как фреймворк автоматически разместит MDI-окно
      FormStyle := fsMDIChild;
      // Присваиваем обработчик события закрытия
      OnClose := FormClose;
      Show;
      Caption := IntToStr(i);
      if i mod 2 = 0 then
        Color := clRed
      else
        Color := clBlue;
    end;
  end;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action := caFree; // Освобождаем ресурсы
end;

Подтвержденный ответ

Чтобы назначить обработчик события закрытия для дочерних форм MDI, необходимо создать функцию-обработчик в основном окне и присвоить её событию OnClose каждой создаваемой формы.

Альтернативный ответ

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

Комментарии к коду

• Указание свойства Parent для дочернего окна MDI не требуется, так как фреймворк автоматически определит основное окно MDI.
• Стиль границы BorderStyle для дочерних окон MDI обычно не имеет эффекта и может быть исключен из кода.

Следуя этим рекомендациям, вы сможете правильно назначить обработчик события закрытия для дочерних окон MDI в Delphi, что позволит корректно управлять жизненным циклом ваших приложений.

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

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

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

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

:: Главная :: Свойства и События ::