Как правильно наследоваться от TCustomGrid ?

[Morfi]

Доброго времени суток.

Нашел проблему при написании кастомного грида, который наследуется от TCustomGrid:

При использовании LiveBindings  между кастомным гридом и набором данных, после закрытия среды вываливается AV:

 

 

Подскажите, что я упустил?

 

Минимальный код кастомного грида:

Спойлер

 

unit Simple.FMX.DBGridTest;

interface

uses
  FMX.Grid, System.Classes;

type
  TCustomFMXGrid = class(TCustomGrid)
  public
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;

  end;

  TFMXGrid = class(TCustomFMXGrid)
  protected
    function GetDefaultStyleLookupName: string; override;
    procedure DoEndUpdate; override;
  published
    property Anchors;
    property Align;
    property CanFocus;
    property CanParentFocus;
    property ClipChildren;
    property ClipParent;
    property ControlType;
    property Cursor;
    property DisableFocusEffect;
    property DragMode;
    property EnableDragHighlight;
    property Enabled;
    property Height;
    property HelpContext;
    property HelpKeyword;
    property HelpType;
    property HitTest;
    property Locked;
    property Padding;
    property Opacity;
    property Margins;
    property PopupMenu;
    property Position;
    property ReadOnly;
    property RotationAngle;
    property RotationCenter;
    property Scale;
    property Size;
    property StyleLookup;
    property TextSettings;
    property StyledSettings;
    property TabOrder;
    property TabStop;
    property TouchTargetExpansion;
    property Visible;
    property Width;
    property RowHeight;
    property RowCount;
    property Options;
    property Images;

    property DefaultDrawing;
    property OnHeaderClick;
    property OnColumnMoved;
    property OnDrawColumnHeader;
    property OnSelectCell;
    property OnSelChanged;
    property OnDrawColumnBackground;
    property OnDrawColumnCell;
    property OnGetValue;
    property OnSetValue;
    property OnCreateCustomEditor;
    property OnEditingDone;
    property OnResize;
    property OnResized;
    property OnCellClick;
    property OnCellDblClick;
    property OnDragEnter;
    property OnDragLeave;
    property OnDragOver;
    property OnDragDrop;
    property OnDragEnd;
  end;

procedure Register;

implementation

uses
  FMX.Styles, FMX.Presentation.Factory, FMX.Presentation.Style, FMX.Grid.Style,
  FMX.Controls, FMX.Types;

procedure Register;
begin
  RegisterComponents('Simple', [TFMXGrid]);
end;


{ TCustomFMXGrid }

constructor TCustomFMXGrid.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);

end;

destructor TCustomFMXGrid.Destroy;
begin

  inherited;
end;

{ TFMXGrid }

procedure TFMXGrid.DoEndUpdate;
begin
  Model.ClearCache;
  inherited;
end;

function TFMXGrid.GetDefaultStyleLookupName: string;
begin
  result := 'gridstyle';
end;

initialization
  TPresentationProxyFactory.Current.Register(TCustomFMXGrid, TControlType.Styled, TStyledPresentationProxy<TStyledGrid>);
  TPresentationProxyFactory.Current.Register(TFMXGrid, TControlType.Styled, TStyledPresentationProxy<TStyledGrid>);

  TColumnClasses.Register([TColumn, TStringColumn, TProgressColumn, TCheckColumn, TDateColumn, TTimeColumn, TPopupColumn,
  TImageColumn, TCurrencyColumn, TFloatColumn, TIntegerColumn, TGlyphColumn]);

  RegisterFmxClasses([TFMXGrid]);
finalization
  TColumnClasses.UnRegister([TColumn, TStringColumn, TProgressColumn, TCheckColumn, TDateColumn, TTimeColumn, TPopupColumn,
  TImageColumn, TCurrencyColumn, TFloatColumn, TIntegerColumn, TGlyphColumn]);

  TPresentationProxyFactory.Current.Unregister(TFMXGrid, TControlType.Styled, TStyledPresentationProxy<TStyledGrid>);
  TPresentationProxyFactory.Current.Unregister(TCustomFMXGrid, TControlType.Styled, TStyledPresentationProxy<TStyledGrid>);

end.

 

Изменено 8 сентября, 2019 пользователем Morfi

[dnekrasov]

Я бы на Вашем месте копал в сторону секций initialization и finalization. Зачем повторно регистрировать TColumnClasses? Да и с TPresentationProxyFactory.Current.Unregister не всё понятно.