从另一个窗体的 onActivate 调用时，模态窗体中的控件不会获得焦点。为什么？

Question

在某些情况下，我的应用程序会在显示另一个表单 (Form1) 后尝试自动打开某个表单 (Form2)。我正在使用onFormActivate 调用ShowModal，但是在显示第二个表单后，它的控件失去了焦点。

复制：

1. 创建一个新的 VCL 应用程序；
2. 创建第二个表单并将TEdit 放入其中；
3. 在主窗体上添加一个onFormActivate 监听器；

'

procedure TForm1.FormActivate(Sender: TObject);
begin
  Form2.ShowModal;
end;

运行后，您将看到 Form2 正在显示。但是编辑没有得到焦点。 如果我在项目文件中注释MainFormOnTaskbar，它会起作用。

// Application.MainFormOnTaskbar := True;

但这不是我应该改变的。我想了解一下：为什么TEdit 会失去焦点？

Answer 1

OnActivate 在焦点正在移动时被触发。中断该过程是一个非常糟糕的主意。

如果您希望OnActivate 事件触发ShowModal() 调用，您应该使用PostMessage()（或简短的TTimer）延迟它，以便消息循环可以完成处理已经在进行中的焦点转移，然后可以在安全的情况下执行ShowModal()。例如：

const
  WM_SHOWMODAL_FORM2 = WM_APP + 1;

procedure TForm1.FormActivate(Sender: TObject);
begin
  PostMessage(Handle, WM_SHOWMODAL_FORM2, 0, 0);
end;

procedure TForm1.WndProc(var Message: TMessage);
begin
  if Message.Msg = WM_SHOWMODAL_FORM2 then
    Form2.ShowModal
  else
    inherited;
end;