delphi - フォームが表示される前にコンポーネントにフォーカスを強制する方法

Question

ShowModal多くのフォームを（で）表示する必要がありますが、コンテキストによってはTEdit、フォーカスを強制したいのですが、TEdit常に同じであるとは限りません。

（フォームがアクティブ化されていないため）SetFocus前に使用できず、コンポーネントを使用するか、アプリケーションで便利ではありません。アイデアはありますか？ShowModalNameTag

Answer 1

私の見解では、目標を達成するための最も簡単な方法はActiveControl、フォームのプロパティに割り当てることです。フォームを表示する前にこれを行うことができます。フォームが後で表示されるとき、VCLフレームワークはにActiveControl入力フォーカスが与えられることを保証します。

ドキュメントから：

フォームにフォーカスがない場合は、フォームがフォーカスActiveControlを受け取ったときにフォーカスを受け取るフォームのコントロールです。