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;