Решение проблемы с таймером в немодальной форме в Delphi

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

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

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

Когда мы показываем Splash-форму модально, то приложение блокируется до тех пор, пока Splash-форма не будет закрыта. В этом случае основной цикл обработки сообщений (message loop) приложения запускается до показа Splash-формы, и поэтому все события, в том числе и таймера, обрабатываются корректно.

Если же мы показываем Splash-форму не модально, то основной цикл обработки сообщений приложения еще не запущен, так как приложение не блокируется ожиданием закрытия Splash-формы. В результате, события таймера не обрабатываются, так как нет цикла обработки сообщений, который бы вызывал их обработчики.

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

Решение 1: Использование TApplication.OnIdle

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

Пример кода:

procedure TForm1.FormCreate(Sender: TObject);
begin
  SplashForm := TForm1.Create(nil);
  SplashForm.Show;
  Timer1.Enabled := True;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  // Обработка таймера
  Inc(Timer1.Interval);
  if Timer1.Interval > 5000 then
    Timer1.Enabled := False;
end;

procedure TForm1.FormShow(Sender: TObject);
begin
  Application.OnIdle := procedure
    begin
      if Timer1.Enabled then
        Timer1Timer(Sender);
    end;
end;

В этом примере мы создаем Splash-форму в событии FormCreate и показываем ее не модально. Таймер запускается в этом же событии. В событии FormShow мы устанавливаем обработчик события TApplication.OnIdle, в котором вызываем обработчик таймера, если таймер запущен.

Решение 2: Использование отдельного потока для таймера

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

Пример кода:

procedure TForm1.FormCreate(Sender: TObject);
begin
  SplashForm := TForm1.Create(nil);
  SplashForm.Show;
  Timer1.Enabled := True;
  TThread.CreateAnonymousThread(
    procedure
    begin
      while Timer1.Enabled do
      begin
        // Обработка таймера
        Inc(Timer1.Interval);
        if Timer1.Interval > 5000 then
          Timer1.Enabled := False;
        Sleep(100);
      end;
    end
  ).Start;
end;

В этом примере мы создаем Splash-форму и запускаем таймер в событии FormCreate. Затем мы создаем новый поток, в котором будет обрабатываться таймер. В этом потоке мы запускаем бесконечный цикл, в котором обрабатываем таймер и ждем 100 миллисекунд перед следующей итерацией цикла. Таким образом, таймер будет работать независимо от основного цикла обработки сообщений приложения.

Заключение

В этой статье мы рассмотрели проблему с таймером в немодальной форме в Delphi и предложили два решения: использование события TApplication.OnIdle и использование отдельного потока для таймера. Каждое из этих решений имеет свои плюсы и минусы, и выбор между ними зависит от конкретной задачи и требований к приложению.

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

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

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

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

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