delphi - 如何防止用户单击时激活表单？

Question

我有一个主表单和一个非模态自动完成表单。当用户单击自动完成表单中的列表时，如何防止用户激活自动完成表单？

所以，基本上我希望自动完成表单在用户单击时接收鼠标单击消息，但永远不会激活，因为它会导致我无法控制的主表单中的第三方组件出现问题。

Answer 1

覆盖表单的 CreateParams 方法并将 WS_EX_NOACTIVATE 样式添加到扩展样式。

procedure TForm1.CreateParams(var Params: TCreateParams);
begin
  inherited;

  Params.WindowClass.ExStyle := Params.WindowClass.ExStyle or WS_EX_NOACTIVATE;
end;

(凭内存写的代码，可能有错别字)