Firemonkey Grid Control - 列移動を無効にします。しかし、列のサイジングを許可する

Question

私はTGridをFMで使用しており、列のサイズを変更できますが、列を再構成することはできません（つまり、&列ヘッダーを移動します）。私は公開されたプロパティ（ "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;