ダイアログ上で最初のコントロールにフォーカスを設定するには、ダイアログを表示する直前にSelectFirst関数を呼びます。
TEditなど、最初のコントロールがテキスト入力を受け付けるものである場合、フォーカスを再設定してもテキストは選択状態になりません。これを避けるには、ダイアログを閉じる直前にActiveControlをNULLに設定します。
コーディング例:
//---------------------------------------------------------------------------
void __fastcall TForm2::DoShow()
{
SelectFirst();
TCustomForm::DoShow();
}
//---------------------------------------------------------------------------
void __fastcall TForm2::DoHide()
{
ActiveControl = NULL;
TCustomForm::DoHide();
}
//---------------------------------------------------------------------------