动态创建的VCL模态TForm调用ShowModal时TEdit无法获焦问题

问题分析 #

你遇到的焦点异常，核心原因是窗体创建时机与Windows焦点管理的冲突：

• MainForm的OnShow事件触发时，主窗体尚未完全完成激活流程，此时通过FireDAC的OnLogin弹出模态窗，会打乱Windows的焦点传递链。
• bsDialog样式的窗体默认会将焦点分配给第一个按钮控件，即使你设置了ActiveControl，也会被系统的焦点逻辑覆盖。

可行解决方案 #

1. 延迟触发FireDAC连接，避免在MainForm::OnShow中直接执行

将FireDAC的初始化逻辑延迟到主窗体完全激活后执行，用PostMessage实现异步触发：

// 定义自定义消息
#define WM_INIT_FIREDAC (WM_USER + 101)

void __fastcall TMainForm::FormShow(TObject *Sender)
{
    // 发送延迟消息，让主窗体先完成激活
    PostMessage(Handle, WM_INIT_FIREDAC, 0, 0);
}

void __fastcall TMainForm::WndProc(TMessage &Message)
{
    if (Message.Msg == WM_INIT_FIREDAC)
    {
        // 这里执行FireDAC连接操作
        FDConnection->Open();
    }
    TForm::WndProc(Message);
}

2. 在模态窗体的OnActivate事件中强制设置焦点

放弃在窗体创建时设置ActiveControl，改为在窗体真正激活时（OnActivate）强制将焦点分配给TEdit：

void __fastcall TMyForm::FormActivate(TObject *Sender)
{
    // 直接调用控件的SetFocus
    EditName->SetFocus();
    // 若仍无效，尝试底层API强制设置
    ::SetFocus(EditName->Handle);
}

3. 调整控件TabOrder，确保TEdit是第一个可聚焦控件

检查EditName的TabOrder属性，设置为0，让它成为Tab链的第一个控件。同时确保控件的TabStop属性为true（默认是true，但最好确认）。

4. 禁用FireDAC的LoginPrompt，手动触发登录窗体

绕开FireDAC的OnLogin事件的上下文限制，直接手动判断连接状态并弹出登录窗体：

// 关闭自动登录提示
FDConnection->LoginPrompt = false;
try
{
    FDConnection->Open();
}
catch (EDBEngineError &E)
{
    // 捕获登录失败错误，手动弹出登录窗体
    TMyForm *MyForm = new TMyForm(this);
    if (MyForm->ShowModal() == mrOk)
    {
        // 用输入的账号密码重新连接
        FDConnection->Params->Values["User_Name"] = MyForm->EditName->Text;
        FDConnection->Params->Values["Password"] = MyForm->EditPass->Text;
        FDConnection->Open();
    }
    MyForm->Free();
}

验证效果 #

以上方案中，方案1+方案2的组合通常能解决90%以上的焦点异常问题。因为延迟触发确保了主窗体激活完成，而OnActivate中设置焦点则覆盖了bsDialog的默认焦点逻辑。

内容的提问来源于stack exchange，提问作者user3161924