如何通过键盘调用Delphi 11 FMX StringGrid的TPopupColumn？

默认情况下TPopupColumn仅支持鼠标触发，但可以通过事件处理实现键盘唤起下拉列表及选择功能，具体步骤如下：

1. 键盘唤起下拉列表 #

处理StringGrid的OnKeyDown事件，当焦点位于TPopupColumn单元格时，按下空格或Enter键触发下拉列表：

procedure TForm1.StringGrid1KeyDown(Sender: TObject; var Key: Word; var KeyChar: Char; Shift: TShiftState);
var
  CurrentColumn: TColumn;
begin
  CurrentColumn := StringGrid1.Columns[StringGrid1.SelectedColumn];
  if (CurrentColumn is TPopupColumn) and ((Key = VK_SPACE) or (Key = VK_RETURN)) then
  begin
    TPopupColumn(CurrentColumn).Popup.Visible := True;
    Key := 0; // 屏蔽默认按键行为
  end;
end;

2. 键盘选择下拉选项 #

TPopupColumn的下拉容器是TPopup，内部默认使用TListBox承载选项，无需额外代码即可支持基础键盘操作：

• 按下上/下箭头键：在选项列表中切换选中项
• 按下Enter键：确认选中值，将其填入当前单元格并关闭下拉列表
• 按下Esc键：直接关闭下拉列表，不修改单元格内容

3. 可选优化：聚焦提示 #

若需提升用户体验，可在StringGrid的OnEnter事件中添加逻辑，当焦点落在TPopupColumn单元格时，通过状态栏或提示框告知用户可按空格/Enter唤起下拉列表。

内容的提问来源于stack exchange，提问作者Michael Riley - AKA Gunny