哪个是初始化代码的最佳位置？ [复制]

Question

可能重复：
Splash Screen Programatically
Show a splash screen while a database connection (that might take a long time) runs

初始化代码（例如加载 INI 文件）的最佳位置是什么？我想首先在屏幕上显示表单，以便用户知道应用程序正在加载，然后才想调用冗长的函数，例如 LoadIniFile 或 IsConnectedToInternet（最后一个真的很慢）。

OnCreate 不好，因为表单还没有准备好，它不会显示在屏幕上。

我这样做我 DPR 但并不总是工作：

program Test;
begin
  Application.Initialize;
  Application.Title := 'Test app';
  Application.CreateForm(TfrmTest, frmTest);
  frmTest.Show;               <---------------------- won't show
  LateInitialize;
  Application.Run;
end.

在执行 LateInitialize（4-5 秒）之前，表单不会显示。

---

procedure LateInitialize;
begin
 CursorBussy;
 TRY
  // all this won't work also. the form won't show
  frmTest.Visible:= TRUE;
  Application.ProcessMessages; 
  frmTest.Show;
  Application.ProcessMessages;
  frmTest.BringToFront;
  frmTest.Update;
  Application.ProcessMessages;

  DoSomethingLengthy;     {4-5 seconds}
 FINALLY
  CursorNotBussy;
 END;
end;     <--------- Now the form shows.

是的，frmTest 是我唯一的表单（主表单）。

Answer 1

在调用frmTest.Show之后，你可以调用frmTest.Update让它在屏幕上渲染，然后再调用LateInitialize。但在调用Application.Run 之前，主消息循环不会运行，因此在此之前表单将无法执行任何其他操作。

另一种选择是使用表单的OnShow 事件通过PostMessage() 将自定义窗口消息发布回表单，然后让表单在稍后收到该消息时调用LateInitialize。这将允许表单正常处理绘画消息，直到调用 LateInitialize。

任何阻塞主线程超过几毫秒/秒的东西真的应该被移到一个单独的工作线程中（尤其是像IsConnectedToInternet这样的东西）。主线程应该用于运行 UI。

Answer 2

执行此操作的一种简单方法是向自己发送消息。 我一直这样做

const
  MSG_AFTERCREATE = WM_APP + 4711;

...
procedure OnCreate(Sender: TObject);
procedure AfterCreate(var message: TMessage); message MSG_AFTERCREATE;
...


Implementation

procedure OnCreate(Sender: TObject);
begin
  PostMessage(Self.Handle, MSG_AFTERCREATE, 0, 0);
end;

procedure AfterCreate(var message: TMessage);
begin
  //Do initializing here... the form is done creating, and are actually visible now...
end;

Answer 3

变体 1：使用延迟 1 秒的 TTimer，从主窗体的 OnShow 运行它 在 TTimer 中进行初始化 这将为大多数组件提供时间来初始化和绘制自己 变体 1.1：在函数中使用消息方法并从 OnShow 调用 Win API PostMessage（但不是 SendMessage aka Perform）。这是看似但更便宜和更快的。然而，有时可能会在表单上的某些复杂组件完全绘制自身之前收到“do init now”消息。

变体 2：使用线程（OmniThreadsLib 甚至普通的 TThread） 从 MainForm OnCreate 启动它，让它在后台准备所有数据，然后启用所有需要的按钮、菜单等 如果您有长且阻塞的功能，这确实是最好的方法，就像您描述的 IsConnectedToInternet。

变体 3：在显示主窗体之前使用 SplashScreen。 这很好，因为用户看到该应用程序尚未读取。 正是因为这个原因，这很糟糕——人们开始觉得你的程序很慢。谷歌浏览器被告知在第一时间将它们的主要形式绘制为图片，只是为了看起来“我们已经开始了”，即使实际控制会稍后准备好。

Answer 4

很久以前在另一个很远的论坛上，有人发布了以下内容，以记录表单的生命周期。我发现它很有用，所以在这里分享。

Create       OnCreate
Show         OnShow
Paint        OnPaint
Activate     OnActivate
ReSize       OnResize
Paint        OnPaint

Close query  OnCloseQuery
Close        OnClose
Deactivate   OnDeactivate
Hide         OnHide
Destroy      OnDestroy

尝试 OnActivate 事件。