delphi - Lazarus 应用程序中的启动画面问题

Question

我正在将 Delphi 应用程序移植到 FPC/Lazarus，该应用程序在启动屏幕中显示信息。当单元具有初始化部分时，该初始化部分会调用类似以下内容的内容:

Splash.Info(unit_name)

这在 Delphi 中有效，但是当我使用 FPC/Lazarus 编译它时，当我使用启动屏幕创建表单时出现异常:

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

我发现，可以在调用 Application.Initialize; 之后创建表单，因此我的解决方法是在 ScreenInfo.Initialized=true 时创建启动表单。它有效，但不显示所有信息。有没有办法在 Application.Initialize; 之前从单元初始化部分显示启动形式？

Answer 1

显然，VCL 的 FPC/Lazarus 实现与 Delphi VCL 有很大不同，不允许在 Application 对象初始化之前进行表单初始化。

因此，要使其在 Delphi 和 FPC/Lazarus 中都能工作，您能做的最好的事情就是

• 延迟初始化，直到您确定 Delphi VCL 和 FPC/Lazarus VCL 都已准备就绪
• 使用条件定义复制代码，为 Delphi VCL 和 FPC/Lazarus VCL 生成最佳实现

--杰罗恩