Firemonkey Grid Control - 禁用列移动；但允许列大小

Question

我在 FM 中使用 TGrid 并希望用户能够调整列的大小，但不能重新组织列（即拖动和移动列标题）。我已尝试更改许多公开的属性（“Locked”、“DragMode”、“EnableDrag”等...） - 但似乎没有任何效果？

在真正的 FM 体验中；我猜我可能必须重写该类并在后端结构上进行一些更改；但我不确定什么/在哪里 - 或者即使这是可行的？

样本来源明智；如果您只是添加一个 TGrid，添加几列并运行，您就会看到问题。

提前非常感谢。伊恩。

Answer 1

type
  TCustomGridHelper = class helper for TCustomGrid
  public
    /// <summary>
    /// Publish private FHeader from FMX.Grid.TCustomGrid.
    /// </summary>
    function _GetHeader: THeader;
  end;

function TCustomGridHelper._GetHeader: THeader;
begin
  Result := Self.FHeader;
end;

procedure TForm1.Grid1ApplyStyleLookup(Sender: TObject);
var
  I: Integer;
  Header: THeader;
  HeaderItem: THeaderItem;
begin
  Header := Grid1._GetHeader;
  for I := 0 to Header.ChildrenCount - 1 do
  begin
    HeaderItem := Header.Children[I] as THeaderItem;
    HeaderItem.DragMode := TDragMode.dmManual;
  end;
end;