delphi - 如何在显示表单之前强制关注组件

Question

我必须显示（与ShowModal）一个 Form 有很多TEdit，但我想强制关注 a TEdit，但并不总是相同，具体取决于上下文。

我不能SetFocus在之前使用ShowModal（因为表单没有激活）和使用组件Name或者Tag在我的应用程序中不方便。你有想法吗 ？

Answer 1

在我看来，实现目标的最简单方法是分配给ActiveControl表单的属性。您可以在显示表单之前执行此操作。当您稍后显示表单时，VCL 框架将确保ActiveControl给定输入焦点。

从文档中：

如果窗体没有焦点，ActiveControl是窗体上的控件，当窗体获得焦点时将获得焦点。