"Инициализация экрана загрузки в Lazarus: решение проблемы с переносом из Delphi"

Delphi , Программа и Интерфейс , Формы

Инициализация экрана загрузки в Lazarus: решение проблемы с переносом из Delphi

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

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

При использовании Delphi, инициализация экрана загрузки, вызываемая из секции инициализации модуля, работает корректно. Однако при компиляции того же кода с помощью FPC/Lazarus, возникает исключение при попытке создать форму экрана загрузки:

Failed to create win32 control, error 1407 : Cannot find window class

Проблема заключается в том, что в Lazarus формы не могут быть созданы до вызова Application.Initialize.

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

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

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

Чтобы решить эту проблему, необходимо отложить инициализацию экрана загрузки до тех пор, пока не будет уверенность в том, что объект приложения полностью инициализирован. В коде это можно реализовать следующим образом:

{$IFDEF FPC}
if not ScreenInfo.Initialized then
    exit;
{$ENDIF}
if not splash_initialized then begin
  SplashScreen := TSplashScreen.Create(Application);
  splash_initialized := true;
  // Дальнейшая инициализация экрана загрузки
end;

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

Пример кода

program SplashScreenExample;

{$APPTYPE CONSOLE}

uses
  Classes, SysUtils, Forms;

type
  TSplashScreen = class(TForm)
  private
    { Déclarations des variables privées }
  public
    { Déclarations des méthodes publiques }
    constructor Create(AOwner: TComponent); override;
  end;

constructor TSplashScreen.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  // Инициализация интерфейса, если это необходимо после Application.Initialize
  {$IFDEF FPC}
  if not ScreenInfo.Initialized then
    exit;
  {$ENDIF}
end;

var splash_initialized: Boolean;
procedure TForm1.FormCreate(Sender: TObject);
begin
  {$IFDEF FPC}
  if not ScreenInfo.Initialized then
    exit;
  {$ENDIF}
  if not splash_initialized then begin
    SplashScreen := TSplashScreen.Create(Application);
    splash_initialized := true;
  end;
  // Показать информацию на экране загрузки
  Splash.Info('UnitName');
end;

begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.

Заключение

При переносе приложений между различными средами разработки, такими как Delphi и Lazarus, важно учитывать различия в реализации VCL. В данном случае, для корректной работы экрана загрузки в Lazarus, необходимо отложить инициализацию форм до вызова Application.Initialize. Использование условной компиляции позволяет обеспечить совместимость кода для обеих сред разработки.

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

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

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

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

:: Главная :: Формы ::