显示主表单后如何自动弹出对话框？

Question

我正在使用Delphi XE3。现在，我需要在显示主表单后弹出一个对话框。

我尝试将代码放入主窗体的FormShow事件处理程序中，如下所示：

    with TMyChildForm.Create(Self) do
    begin
      ShowModal();
      Free;
    end;

但是，这将导致在显示主表单之前弹出ChildForm。

Answer 1

您需要延迟显示弹出表单，直到OnShow之后退出。您可以：

• 使用短计时器。
• PostMessage()给自己的自定义窗口消息。
• 使用TThread.CreateAnonymousThread()或TTask呼叫TThread.Queue()。
• 使用TThread.ForceQueue()（仅限10.2东京及以后）。