FireMonkey：如何让TStringGrid中的TComboBox支持键盘操作？

问题原因 #

你的代码仅通过OnChange事件更新单元格值，该事件在鼠标选择ComboBox选项时能正常触发，但键盘操作场景下存在触发漏洞：

• 用上下箭头选择选项后直接按Tab/回车切换单元格，OnChange可能未完成值同步
• 手动输入选项文本后确认，部分情况下OnChange不会触发

修改方案 #

需要补充处理ComboBox的失去焦点事件和键盘按键事件，确保所有键盘操作场景都能同步值到单元格：

1. 在StringGrid1CreateCustomEditor函数中，为ComboBox额外绑定OnExit和OnKeyDown事件：

void __fastcall TForm1::StringGrid1CreateCustomEditor(
    TObject* Sender, TColumn* const Column, TStyledControl*&Control)
{
    TComboBox* combobox = new TComboBox(this);

    if (Column == Column1) {
        Control = combobox;
        combobox->Items->Assign(Memo1->Lines);
        combobox->ItemIndex = combobox->Items->IndexOf(
            StringGrid1->Cells[StringGrid1->Col][StringGrid1->Row]);

        if (combobox->ItemIndex > -1) {
            StringGrid1->Cells[StringGrid1->Col][StringGrid1->Row] =
                combobox->Items->Strings[combobox->ItemIndex];
        }
        combobox->OnChange = &ChangeStringGridComboBox;
        // 新增以下两行
        combobox->OnExit = &ComboBoxExit;
        combobox->OnKeyDown = &ComboBoxKeyDown;
    }
}

2. 实现OnExit事件处理函数（失去焦点时强制更新）：

void __fastcall TForm1::ComboBoxExit(TObject* Sender)
{
    TComboBox* combobox = dynamic_cast<TComboBox*>(Sender);
    if (combobox && combobox->ItemIndex > -1) {
        StringGrid1->Cells[StringGrid1->Col][StringGrid1->Row] = 
            combobox->Items->Strings[combobox->ItemIndex];
    }
}

3. 实现OnKeyDown事件处理函数（处理回车/Tab键确认的场景）：

void __fastcall TForm1::ComboBoxKeyDown(TObject* Sender, WORD &Key, System::WideChar &KeyChar, TShiftState Shift)
{
    TComboBox* combobox = dynamic_cast<TComboBox*>(Sender);
    if (!combobox) return;

    // 按下回车或Tab时立即更新单元格
    if (Key == VK_RETURN || Key == VK_TAB) {
        if (combobox->ItemIndex > -1) {
            StringGrid1->Cells[StringGrid1->Col][StringGrid1->Row] = 
                combobox->Items->Strings[combobox->ItemIndex];
        }
        // Tab键触发下一个单元格选择
        if (Key == VK_TAB) {
            StringGrid1->SelectNextCell(true);
        }
    }
}

关于无法解决的情况 #

不存在无法解决的场景。上述修改覆盖了所有键盘操作路径：上下箭头选值后切换、回车确认、手动输入后确认、失去焦点自动同步，完全匹配鼠标操作的体验。若遇到特定FireMonkey版本的小bug，也可通过调整事件触发逻辑（如增加OnCloseUp事件处理）进一步兼容。

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