Как создать экранную заставку в Delphi XE2 с использованием FireMonkey

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

Разработка приложений с использованием FireMonkey в Delphi XE2 предполагает работу с графическими интерфейсами, которые отличаются от традиционного VCL. Одной из задач, которую часто ставят перед разработчиками, является создание экранной заставки (splash screen) для демонстрации логотипа компании или бренда во время запуска программы. В данной статье мы рассмотрим, как можно реализовать экранную заставку для FireMonkey проектов в Delphi XE2.

Проблема и контекст

При работе с VCL для создания экранной заставки использовался следующий код:

SplashScreen := TSplashScreen.Create(Application);
SplashScreen.Show;
Application.Initialize;
SplashScreen.Update; // Функция обновления не существует в FMX
Application.Run;

Однако в FireMonkey (FMX) формы не создаются и не перерисовываются до выполнения метода Application.Run, поскольку используются внутренние механизмы FMX для перерисовки. Использование VCL экранной заставки не является вариантом, так как требуется поддержка OSX.

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

Для создания экранной заставки в FireMonkey проектах Delphi XE2 можно использовать следующий подход:

program Project2;
uses
  FMX.Forms,
  System.SysUtils,
  Unit1 in 'Unit1.pas' {MainForm},
  Unit2 in 'Unit2.pas' {SplashForm};
{$R *.res}
begin
  Application.Initialize;
  SplashForm := TSplashForm.Create(nil);
  SplashForm.Show;
  Sleep(1000);   // Задержка для контроля времени отображения заставки
  Application.CreateForm(TMainForm, MainForm);
  SplashForm.Close;
  SplashForm.Free;
  Application.Run;
end.

В данном случае Application не является владельцем окна заставки, и метод Application.Initialize вызывается до создания и отображения окна заставки, но основная форма создается уже после показа окна заставки.

Альтернативное решение

Также можно использовать отдельный TLayout для экрана заставки, который будет заполнен необходимым контентом. Важно, чтобы layout находился прямо на форме и был владельцем всех других элементов. Необходимо включить прозрачность формы, а в событии FormCreate спрятать другие элементы управления. Для скрытия заставки потребуется триггерное событие, которое будет отображать основную форму по мере необходимости.

Примечание: Такой подход не покажет стандартные кнопки формы на экране заставки.

Заключение

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

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

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

В статье рассматривается процесс создания экранной заставки для приложений, использующих технологию FireMonkey в Delphi XE2, и обсуждаются особенности реализации такой заставки, отличающиеся от подхода в VCL.

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

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

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