德尔福火猴网格: Invisible Columns When Navigating

Question

我在 FMX 上有一个 TGrid，有 3 列，第二列是 Visible False，如果我单击第一列并按箭头聚焦于下一个可见列，光标不会转到第三列，它会消失，就像聚焦在第二列上一样，如果我再次按下箭头，那么他会转到第三列。

我该如何修复它？

Answer 1

使用 OnSelectCell 事件，如下所示:

procedure TForm7.Grid1SelectCell(Sender: TObject; const ACol, ARow: Integer;
  var CanSelect: Boolean);
begin
  if not (Sender as TGrid).Columns[ACol].Visible then
  begin
    CanSelect := False;
    if (Sender as TGrid).ColumnByIndex(ACol+1) <> nil then
      (Sender as TGrid).SelectColumn(ACol+1);
  end;
end;

<小时/>

顺便说一句，你没有说你使用的是哪个版本的Delphi，并且存在差异。请在询问 Firemonkey 时，始终用您的 Delphi 版本标记问题。这是更新:

• 在 Delphi 10.1 Berlin 中不需要上述修复。

• 在 Delphi 10 Seattle 及更早版本(我验证到 XE6)中需要修复

您可能还注意到，在 Delphi 10 Seattle 及更早版本中，无需修复即可选择另一个方向(从右到左)(这解释了为什么只需要考虑 ACol + 1) .