Создание всплывающего окна (splash screen) в Delphi: лучшие практики и решение утечки памяти

Delphi , ОС и Железо , Монитор и Экран

Вопрос, поднятый пользователем, заключается в создании всплывающего окна (splash screen) в приложении на Delphi, которое будет отображаться в течение определенного времени, не задерживая при этом запуск основного окна программы. Суть проблемы заключается в том, что при закрытии всплывающего окна через таймер не происходит его корректное освобождение памяти, что приводит к утечкам.

Понимание проблемы

В коде, представленном пользователем, сначала создается всплывающее окно frmSplash, а затем основное окно frmMain. После этого основное окно инициализируется, и вызывается метод Show, чтобы отобразить его. Всплывающее окно закрывается через таймер, который запускает анимацию и через заданное время вызывает закрытие формы.

Пример кода

begin
  Application.Initialize;
  Application.MainFormOnTaskbar := FALSE;
  Application.Title := AppName;
  frmSplash:= TfrmSplash.Create(nil); // Создание всплывающего окна
  Application.CreateForm(TfrmMain, frmMain); // Создание основного окна
  frmMain.LateInitialization;
  frmMain.Show;
  // Основной цикл обработки сообщений
  Application.Run;
end.
// В всплывающем окне есть TTimer, который после x секунд вызывает процедуру закрытия
procedure TfrmSplash.CloseSplashForm;
begin
  Timer.Enabled:= FALSE;
  Close; // Закрытие формы
end;

Решение проблемы утечки памяти

Проблема утечки памяти возникает из-за того, что всплывающее окно не освобождается после вызова Close. Для решения этой проблемы можно использовать несколько подходов:

1. Передать объект Application в качестве владельца всплывающего окна при его создании. В этом случае всплывающее окно будет освобождено вместе с основным приложением.
2. Ручное уничтожение всплывающего окна. Это можно сделать, вызвав Free или Release для объекта формы.
3. Назначить событие OnClose для всплывающего окна и установить Action := caFree.

Важно

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

Лучшие практики

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

Пример корректного кода

procedure TfrmSplash.FormCreate(Sender: TObject);
begin
  with TTimer.Create(nil) do
  try
    Interval := 5000; // Задержка в миллисекундах
    OnTimer := procedure
      begin
        Free; // Освобождаем таймер
        Close; // Закрываем форму
      end;
    Active := True; // Запускаем таймер
  finally
    Free; // Освобождаем объект таймера, если он не будет уничтожен таймером
  end;
end;

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

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

Вопрос связан с разработкой на Delphi, где рассматривается проблема создания всплывающего окна (splash screen) с корректным освобождением памяти при его закрытии для предотвращения утечек.

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

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

:: Главная :: Монитор и Экран ::